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Antes de ser consubstanciado neste livro, o MODO programável do 
dBASE II PLUS foi inteiramente retalhado por nds. Todos os comandos e 
recursos disponíveis no mesmo foram minuciosamente estudados e experi- 
mentados, um a um, com a finalidade de serem descritos de maneira ob- 
jetiva e com a maior clareza possível. 

Como não podia deixar de ser, em se tratando de introduzir e co- 
mentar o modo programável do dBASE, no Capítulo 1 é feita uma breve 
explanação sobre criação, edição, alteração e execução de programas, 
com apresentação dos comandos próprios para tais fins. 

A partir do segundo capítulo é iniciada a introdução gradativa 
dos demais comandos do modo programável, com exemplificações avulsas e 
era módulos de programa funcionais. 

visando facilitar a sua assimilação, os comandos foram agrupados 
segundo a sua finalidade, sendo introduzidos pnmeiramente os que são 
aplicados no controle do cursor do sistema, do cabeçote da impressora 
e da tela de vídeo, seguindo-se os próprios para formatação de dados 
em entradas e saídas, entrada, alteração e eliminação de dados, repe- 
tição, mensagens, retorno e cancelamento de programas etc. 

Paralelamente com a introdução dos comandos e recursos básicos do 
modo programável do dBASE, um programa para controle de estoque é de- 



senvolvido, com detalhamento de todos 03 módulos que o compõem. 

Após o desenvolvimento completo do programa para controle de es- 
toque, são introduzidos os comandos avançados e recursos sofisticados, 
com exemplificação e criação de módulos para aplicações diversas. 

Procuramos apresentar neste livro o modo programável do dBASE no 
estilo de um Curso Prático, acreditando que, assim, seus comandos e 
recursos possam ser rápida e plenamente assimilados, possibilitando 
aos interessados, em curto espaço de tempo, aplicá-los prof íssional- 
mente de maneira ampla e irrestrita. 

Com a publicação deste nosso segundo livro sobre o dBASE II PLUS 
esperamos estar colocando à disposição dos interessados em profissio- 
nalizar-se em programação dBASE as informações necessárias para que 
seu objetivo seja coroado de êxito. 

São Paulo, julho de 1988. 


0 Autor. 
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Como vimos no primeiro volume deste Curso, além dos comandos in- 
terativos, o d BASE dispõe de comandos especiais que constituem a sua 
linguagem de programação, a qual permite maximizar sua utilização no 
gerenciamento de bancos de dados. 

Por possuir uma linguagem de programação própria que lhe confere 
amplos recursos, a par de uma linguagem de consulta potente e ágil, o 
dBASE se distingue dos demais sistemas de gerenciamento de bancos de 
dados, sendo praticamente imbatível em sua área. 

Sabemos que, para cumprir determinadas tarefas, o microcomputador 
precisa receber comandos próprios do sistema que o controla. Tal sis- 
tema pode ser: 

- o seu próprio - residente - complementado por uma linguagem de 
computação - BASIC, por exempio -, como é o caso da maioria dos 
microcomputadores, inclusive os de padrão MSX. 

ou: 


- um sistema operacional independente - MSX DOS, HBDOS, por exem- 
plo - através do qual outro sistema ou linguagem de computação 
- dBASE, por exemplo - passa a controlar o microcomputador. 
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Assim é que r através de um dos sistemas operacionais citados, o 
d BASE se torna ativo e disponível ao usuário, podendo ser usado no mo- 
do direto - ou interativo executando isolada e imediatamente cada 
coroando próprio recebido, ou no modo indireto - ou programável exe- 
cutando lotes de comandos próprios de uma só vez. 

Quando os comandos agrupados num lote são em pequeno número - até 
10, por exemplo - e não incluem comandos condicionais ou de desvio, 
recebem o nome de 


ARQUIVO DE COMANDOS. 


Quando o agrupamento de comandos inclui quantidade considerável 
deles, e também de comandos condicionais ou de desvio, é denominado 

PROGRAMA. 

Do exposto, conclui-se que PROGRAMAR em dBASE consiste em agrupar 
adequadamente comandos próprios do SISTEMA dBASE, de modo que o micro- 
computador possa executá-los em lotes e seqúencialmente, coro a finali- 
dade de executar tarefas específicas previstas para tais comandos e 
suas combinações. 

Para agrupar comandos do dBASE em ARQUIVO DE COMANDOS OU em PRO- 
GRAMA, utiliza-se o comando 

MODIFY COMMAND. 

MODIFY COMMAND já foi estudado no primeiro volume deste Curso, no 
item relativo a ARQUIVO DE COMANDOS. Será estudado novamente neste vo- 
lume, com relação à PROGRAMAÇAO em dBASE. 
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2-í - CRIAÇSO E EDI ÇÃO DE PROGRAMA 

Vimos que programar era dBASE consiste em agrupar adequadamente, 
através de digitação, comandos próprios do sistema, de modo que possam 
ser executados em lote3 e sequencialmente. 


Comando MODIFY COMMAND 

0 agrupamento de comandos do d BASE na forma de programa é feito 
através do comando MODIFY COMMAND, que ativa o editor do sistema, per- 
mitindo que os comandos digitados sequencialmente, um por linha, sejam 
armazenados em arquivo próprio para execução em lote. MODIFY COMMAND 
é usado em conformidade cora a sintaxe indicada a seguir: 

MODIFY COMMAND <no»e do arquivo> 

Assim, a criação e a edição de programa em dBASE são feitas atra- 
vés de MODIFY COMMAND, com auxílio das teclas de controle próprias do 
comando (descritas no primeiro volume deste Curso e resumidas em tabe- 
las de fácil acesso para consultas) e consistem em: 

- acionar o comando MODIFY COMMAND <no»e do arquivo>; 
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- digitar os comandos desejados com sua sintaxe correta, um por 
linha, sequencialmente na ordem em que devem ser executados; 

- encerrar a edição do programa com auxilio das teclas de contro- 
le CONTROL e W. 

Como a sintaxe de MODIFY COMMAND requer que seja especificado o 
nome do arquivo em que será armazenado o programa, ao ser comandado, 
MODIFY COMMAND verifica se tal arquivo já existe no disquete alojado 
no "disk drive" corrente. Hm caso negativo, exibe no vídeo a mensagem 
"Arq. novo" e, após limpar completaaente a tela de vídeo, ativa o mo- 
do de edição FULL SCREEN do dBASE a fim de que sejam digitados os co- 
mandos que comporão o programa. 

Depois de digitados e conferidos os comandos de um novo programa 
e encerrada sua edição através das teclas de controle CONTROL e W, ele 
é armazenado no arquivo aberto por MODIFY COMMAND e gravado no disque- 
te automaticamente. 


2.2 - ALTERAtaO OU CORRECSO DE PROGRAMA 

Como dissemos, ao ser ativado, MODIFY COMMAND verifica automati- 
camente se existe no disquete alojado no "disk drive" corrente arqui- 
vo com o nome especificado. Em caso negativo, como vimos, abre um novo 
arquivo com o nome indicado. Em caso positivo, ou seja: existindo no 
disquete um arquivo com nome idêntico, exibe no vídeo o seu conteúdo, 
também no modo de edição FULL SCREEN, possibilitando efetuar altera- 
çõeB ou correções no mesmo. 

Alterações e correções no programa editado no modo FULL SCREEN do 
dBASE são feitas também com auxílio das teclas de controle do comando 
MODIFY, as quais permitem deslocamento diversificado do cursor e in- 
serção ou deleção de caracteres ou de linhas de programas, entre ou- 
tros recursos. As teclas de controle do comando MODIFY e de outros são 
descritas no primeiro volume desde Curso e suas funções são resumidas 
em tabelas concisas e visuais que facilitam seu acesso e consultas. 



Assim, alterações e correçoes em programas são feitas através de 
MODIFY COMMAND e consistem em: 

- acionar o comando MODIFY COMMAND com o nome do arquivo do pro- 
grama a ser trabalhado; 

- fazer a 3 alterações ou correções desejadas com auxílio das te- 
clas de controle do comando MODIFY; 

- encerrar a edição do programa com auxílio das teclas de contro- 
le CONTROL e W. 

Resumindo: depois de gravado em disquete o arquivo que contém um 
programa, este poderá ser alterado ou corrigido a qualquer momento, 
bastando acionar MODIFY COMMAND com o seu nome. 

Outro editor de texto que não o próprio pode ser usado para criar 
e editar programas em dBASE. Nos microcomputadores da linha MSX pode 
ser usado o WORDSTAR. 

Em tal caso, todavia, o processo se torna mais complicado, já que 
a edição e a operação do programa dependerão de sistemas diferentes, 
obrigando o usuário a carregá-los alternativamente na memória da má- 
quina, o que poderá ser muito trabalhoso se o programa demandar diver- 
sas correções e alterações. 

2.3 - EXECUÇÃO DE PROGRAMA EM dBASE 

Uma vez criado, elaborado e gravado em disquete, um programa em 
dBASE é executado através do comando indicado a seguir: 


Comando DO 

Tal comando, como vimos no item 19.2 do primeiro volume de nosso 
Curso, tem a seguinte sintaxe: 
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DO (nome do arquivo dc comandos 
ou do arquivo de programa) 

Assim, dado tal comando através do d BASE ativado no microcomputa 
dor, o programa será prontamente executado, desde que esteja no dis 
quete alojado no "disk drive" corrente. 
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Como vimos no primeiro volume deste Curso, no MODO INTERATIVO do 
d BASE o usuário apenas "comanda" ao dBASE o que fazer, sem preocupar- 
se com certos detalhes como, por exemplo, determinar a localização dos 
elementos exibidos na tela de vídeo, sendo isto feito automaticamente 
pelo sistema. 

No MODO PROGRAMÁVEL é o usuário quem deve controlar a tela de ví- 
deo quanto à disposição dos elementos, em grande parte das execuções, 
como veremos. Por essa razão, a criação de telas para entrada e saída 
de dados torna-se um fator importante na programação em dBASE, do qual 
depende muito o bom desempenho do programa. 

Em vi3ta do exposto, serão descritos prioritariamente os comandos 
para utilização e controle da tela de vídeo que, além de 3er o princi- 
pal elo de ligação com o usuário, é também o principal veículo de saí- 
da de dados do sistema, vindo em seguida a impressora. 


3-1 - CONTROLANDO O CURSOR E A TELA DE VÍDEO 

Na versão do dBASE para 40 colunas, a tela de vídeo é dividida em 
24 linhas e 40 colunas. 
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Na versão do d BASE para 80 colunas, a tela de vídeo é dividida em 
24 linhas e 80 colunas. 

As linhas são numeradas de 0 a 23, a partir da parte superior da 
tela de vídeo. 

As colunas são numeradas de 0 a 39 na versão de 40 colunas e de 0 
a 79 na versão de 80 colunas, a partir do lado esquerdo do vídeo. 

Tanto na versão de 40 colunas como na de 80, a linha de número 0 
é usada pelo d BASE como linha de "status", isto é, linha em que deter- 
minadas condições do sistema são informadas ao usuário. Por tal razão, 
convém não ser usada em programas. 


3-i-i - POSICIONAMENTO DO CURSOR NA TELA 

DE VÍDEO E DO CABECOTE DA IMPRESSORA 

Ccinicfcntío SI 

*** 0 comando @ é utilizado 
lar o posicionamento do 
impressora no papel de 
de impressão através de 

3 x,y 

sendo x a coordenada referente à linha e y a coordenada correspondente 
à coluna. 

Para a tela de vídeo as coordenadas x e y podem assumir os valo- 
res indicados a seguir: 

x = 0 a 23 
y = 0 a 39 ou 79 

Para a impressora, x e y podem assumir os valores: 


em conjunto com o comando SAY para contro- 
cursor na tela de vídeo e do cabeçote da 
impressão, assinalando o ponto para início 
SAY. Sua sintaxe é: 
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x = 0 a n 
y = 0 a 254 


sendo n qualquer número. 

Em se tratando de saídas para a impressora, é preciso lembrar que 
os valores de x e y devei ser sempre ascendentes - ou crescentes -, já 
que não é possível fazer o cabeçote da impressora retornar da direita 
para a esquerda para imprimir na mesma linha ou fazer o papel ou for- 
mulário contínuo retroceder para imprimir em linha de número menor ao 
da última impressa. Se o comando 8 x r y a ser executado tiver um valor 
para x menor do que o determinado para x em comando idêntico anterior , 
por exemplo, provocará um avanço de página, ou de páqina3 r dependendo 
dos valores de x. 0 mesmo se verifica com relação a y. 

Outro ponto que deve ser observado é com relação ao tipo de im- 
pressão utilizado na impressora. Por exemplo, se for usado o tipo de 
impressão normal numa impressora de 80 colunas, y poderá assumir o va 
lor máximo 80. Se for utilizado o tipo de impressão condensada que im- 
prime 16,7 caracteres por polegada linear, y poderá assumir o valor 
máximo 132. No caso de impressão condensada de 20 caracteres por pole- 
gada, o valor assumido por y poderá ser 160. Os valores indicados para 
y foram considerados em relação a uma impressora matricial de 80 colu- 
nas, tipo Mõnica EI 6011, produzida por Elebra Informática S.A. 

Com relação à quantidade de linhas por página, se for considerado 
o comprimento de formulários contínuos padronizados - 11 polegadas 
o número máximo de linhas que poderão ser impressas é de 66, com o en 
trelinhamento normal adotado pela maioria das impressoras, que é de 6 
por polegada de altura. 

Os valores de x e y podem ser representados por variáveis. 

Quando usado apenas com as coordenadas, isto é, sem SAY, o coman- 
do £ x,y imprime "brancos" na linha especificada pela coordenada x, 
desde a coluna indicada na coordenada y até a última coluna da linha. 
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3.1 -2 - IMPRESSSO NA TELA DE VÍDEO 

E ATRAVÉS DA IMPRESSORA 


Comando SAY 

*** 0 comando SAY executa a impressão de dados (entendendo-se "dados" 
como conteúdos de variáveis ou de campos de registros), de expres- 
são (entendendo-se "expressão" como uma expressão aritmética ou 
matemática ou o resultado de sua execução) e de texto (entendendo- 
se texto como qualquer conjunto de caracteres alfanuméricos indi- 
cados no comando entre aspas) , na tela de vídeo ou através de ímp- 
pressora. Sua sintaxe é; 

3 x , y SAY < campo, variável, 

expressão ou texto) CUSTNG < "f ormat o" ) 3 

SAY não é válido sem o comando @ x,y. 

Exemplos com @ x,y e SAY: 

3 1 , í 0 SAY "Linha i. coluna 10 do vídeo." 

a 3,10 SAY " " 

a 5,20 SAY 5* í 2/60+ í 5 
3 7,15 SAY QT 

QT no último exemplo representa o nome de uma variável de memória 
ou de campo de registro de arquivo. 

Na condição normal de funcionamento do dBASE , o comando SAY gera 
impressão apenas na tela de vídeo. Para que imprima através de impres- 
sora é preciso que seja ativado o comando descrito a 3eguir: 
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Comando SET FORMAT 


SET FORMAT á dotado de duas funções diferentes. 

*** Uma das funções de SET FORMAT é direcionar a impressão de dados 
gerada através do comando @ x,y SAY para a tela de vídeo ou para 
a impressora. Nessa função é regido por duas sintaxes: 

SET FORMAT TO PRIMTER ou TO PRINT 

SET FORMAT TO SCREEN 

Ao ser carregado o dBASE no microcomputador, SET FORMAT é ativado 
automaticamente na condição TO SCREEN, sendo essa, pois, a sua condi- 
ção "default". 

A principal utilização de SET FORMAT e na emissão de relatórios 
no modo programável do dBASE através de impressora, quando, por força 
do uso praticamente inevitável do comando @ x,y SAY, deve ser acionado 

na condição TO PRINTER. Depois de ativado nessa condição, para redire- 

cionar as saídas de § x,y SAY para o video, SET FORMAT deve ser acio- 
nado na condição TO SCREEN. 

*** Outra função de SET FORMAT é permitir o uso de telas personaliza- 
das para entrada e edição de dados no MODO INTERATIVO do dBASE, 
através dos comandos APPEND, EDIT e INSERT. Nessa função é regido 
pela seguinte sintaxe: 

SET FORMAT TO (nome do arquivo) 

Como sabemos, no MODO INTERATIVO, o dBASE utiliza suas próprias 
telas padronizadas quando tais comandos são executados. Mas as telas 
padronizadas apresentam algumas inconveniências como, por exemplo, não 
descrever a finalidade e natureza dos campos de registros e não permi- 
tir que sejam selecionados para entrada via digitação apenas determi- 
dos campos, já que outros poderão ter seus conteúdos definidos índire- 
tamente através de comandos diversos. 
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Outro fator importante em matéria de entrada e edição de dados á 
o estético, que pode tornar a sua manipulação mais ou menos eficiente, 
mais ou menos cansativa, mais ou menos otimizada. 

Uma tela personalizada é criada e armazenada em arquivo próprio 
através do comando MODIFY COMMAND do mesmo modo que é criado e armaze- 
nado um arquivo de comandos ou um programa ou, ainda, um mddulo deste, 
com a diferença única de que o nome do arquivo deve receber a extensão 
FMT, para ser classificado e processado pelo dBASE como um ARQUIVO DE 
FORMATO e ser usado como tal. 

A edição de um ARQUIVO DE FORMATO é feita com os comandos normais 
para utilização da tela de vídeo, como § x,y SAY , ?, GET, CLEAR GETS, 
READ, ERASE etc., que estão sendo estudados neste capítulo. 

À edição de um arquivo de formato é encerrada normalmente através 
das teclas de controle CONTROL e W, pressionadas simultaneamente. 

Depois de criado e editado, um ARQUIVO DE FORMATO é acionado para 
uso após já estar em uso o arquivo de dados (.DBF) ao qual se relacio- 
na. Exemplo: 

USE CTRLSTOQ < RETURN > 

SET FORMAT TO <nome do arquivo) < RETURN > 

Nessa situação, todas as vezes em que forem acionados os comandos 
APPEND, EDIT e INSERT, o dBASE utilizará a tela personalizada para en- 
trada e edição de dados, em vez de suas telas padronizadas. 

Para reverter o processamento à condição normal, deve ser dado o 
comando : 


SET FORMAT TO SCREEN < RETURN > 


3 . 1.3 


OUTROS COMANDOS 
DA TELA DE 


PARA UTILIZAÇÃO 
VÍDEO E PARA IMPRESSÃO 
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Comandos DISPLAY e LIST 


Os comandos DISPLAY e LIST foram descritos e estudados no primei- 
ro volume deste Curso. Suas aplicações no modo programável do dBASE 
sâo válidas e produzem os mesmos resultados que no modo direto. Toda- 
via, sua utilização no modo programável é bastante reduzida, restrin- 
gindo-se a casos especiais. 

Comandos ? e- ?? 

Os comandos ? e ?? sào bastante usados em programas dBASE para 
reproduzir conteúdos de variáveis ou de campos de registros, comentá- 
rios, expressões etc., seja na tela de video ou através de impressora. 

Suas regras de aplicação são as mesmas descritas para o modo in- 
terativo. Vamos relembrá-las: 

? imprime sempre na primeira linha disponível o que estiver es- 
pecificado no comando. Se nada for especificado, imprimirá uma linha 
inteira de "brancos". 

?? imprime em seguida à impressão do comando ? precedente, isto 
é, inicia a impre33ão na mesma linha produzida por ?, a partir da pri- 
meira coluna disponível. 

Não é possível determinar diretamente no comando ? a linha e a 
coluna para inicio de impressão. 

Indiretamente. a linha para inicio de impressão através de ? pode 
ser determinada com auxílio do comando ê x,y, já que, usado imediata- 
mente após uma linha "em branco" impressa por tal comando, ? iniciara 
a impressão a partir dessa linha. 

A coluna para início de impressão poderá ser determinada também 
de modo indireto, imprimindo-se "brancos" antes da coluna visada. 

0 uso de vírgulas permite que o comando ? seja válido para impri- 
mir na mesma linha diversos elementos diferentes, como texto, conteüdo 
de variáveis ou de campos de registros, expressões, dados etc. 
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Exemplos: 


7 " Digite os valores usando ponto e não" 

7 " vírgula antes das casas decimais." 

? "O custo total é=",PRV * OT 
? " " r STOG," ", VALOR 

(PRV, QT, STOQ e VALOR são nomes de variáveis ou campos em uso.) 
Comando ERASE 

*** 0 comando ERASE esvazia ou ■limpa" a tela de vídeo. 

ERASE já foi descrito no primeiro volume deste Curso. É um coman- 
do bastante utilizado no modo programável do d BASE . 

Comando SET TALK ON/OFF 

SET TALK na condição ON caracteriza o MODO INTERATIVO do dBASE , 
que exibe resposta na tela de vídeo para a maioria dos comandos execu - 
tados nesse modo. 

Ao ser ativado o dBASE, SET TALK entra automaticamente em ON. Em 
programas geralmente é colocado na condição OFF, para que a exibição 
de resultados de comandos seja feita de acordo com a conveniência do 
programa e do usuário e através de comandos específicos. 

SET TALK OFF e ERASE geralmente são os dois comandos iniciais em 
qualquer programa em dBASE II. 

Comandas TEXT e ENDTEXT 

TEXT e ENDTEXT são comandos muito úteis para uso da tela de vídeo 
e da impressora no modo programável do dBASE, para impressão de textos 
em geral, incluindo comentários, lembretes ao usuário, menus etc. 

O texto intercalado entre TEXT e ENDTEXT é reproduzido na tela de 
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vídeo ou através de impressora exatamente na mesma disposição como foi 
digitado, fato esse que facilita deveras a criação de menus, por exem- 
plo, ou de textos cora formatos especiais. 

Sua sintaxe é: 

TEXT 

<menu, texto, comentários etc. > 

ENDTEXT 

Exemplos: 

TEXT 


1. ENTRADA DE DADOS 

2. ATUAL IZACSO DE DADOS 

3. CANCELAMENTO DE DADOS 

4. ENCERRAMENTO 

< ESCOLHA A OPCSO > 


ENDTEXT 

TEXT 

ATENCSO! Ao usar arquivos de dados, 
"backups" devem ser feitos 
em intervalos adequados, a 
título de prevenção contra 
acidentes <falta de luz ou 
defeito no equipamento.) 

ENDTEXT 


3.1.4 - COMENTÁRIOS NO OÍDEO E/OU ATRAVÉS 

DE IMPRESSORA E EM PROGRAMAS 

Em certos caso3, a impressão de comentários, vinhetas, títulos, 


29 



linhas de demarcação etc. em telas de vídeo ou em relatórios em papel 
pode ser conveniente, por diversas razões, inclusive as de ordem es- 
tética. Pode me3mo constituir uma necessidade em determinadas modali- 
dades de programas. 

Por outro lado, em função da complexidade do programa, a introdu- 
ção de comentários elucidativos em sua listagem pode ser uma necessi- 
dade, a fim de assinalar para o programador pontos críticos carentes 
de revisão ou para os quais deverá retornar atenção futura. Comentá- 
rios são também introduzidos em programas para elucidar sua finalidade 
ou as funções de determinados trechos do mesmo. Obviamente, porém, co- 
mentários desta modalidade não devem ser exibidos no vídeo nem ocasio- 
nar interrupção do programa ou prejudicar o seu desempenho. 

Os comandos descritos a seguir são próprios para as finalidades 
ora comentadas: 

Comando NOTE 

*** NOTE permite introduzir em programas comentários elucidativos não 
executáveis e que não alteram o fluxo de execução do3 mesmos. Não 
são exibidos no vídeo nem reproduzidos através de impressora. Sua 
sintaxe é: 


NOTE < coment ár i os > 


Exemplo: 


NOTE - Módulo para entrada de dados. 


Comando * 

*** 0 mesmo que NOTE. Não confundir com a FUNÇÃO *, estudada no pri- 

meiro volume deste Curso. 
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Comando REHARK 


*** REMAR K gera no vídeo ou através da impressora os dizeres e/ou ca- 
racteres que especifica. Sua sintaxe é: 

REMARK <dizeres, caracteres ou expressão) 

Enquanto NOTE e * 3ervem para introduzir em programas comentários 
elucidativos que não são exibidos no vídeo nem reproduzidos através de 
impressora, sendo üteis apenas para exame ou consulta através da lis- 
tagem do programa, REMARK possibilita a exibição de mensagens, lembre- 
tes, vinhetas, títulos etc. através do vídeo e/ou sua reprodução atra- 
vés de impressora. 

Exemplos: 


REMARK ***** TELA DE DIGITAÇÃO ***** 

REMARK tt ####### 

REMARK Digite os dados em caixa alta 

3-1-5 - SAÍDA DE DADOS 

Com base no exposto até este ponto, podemos dizer que. ao mesmo 
tempo que descrevemos os diversos comandos e recursos disponíveis no 
d BASE II PLUS para controle do cursor do sistema, do cabeçote da im- 
pressora e da tela de vídeo, expusemos também os meios de SAÍDA DE DA- 
DOS através da tela de vídeo e da impressora, já que a liberação de 
dados para as mesmas depende quase que inteiramente daqueles elementos 
para efetivar-se, sendo fácil perceber a estreita relação existente 
entre tais comandos e recursos e a saída de dados. 

De certa forma também o processo de ENTRADA DE DADOS foi parcial- 
mente abordado, já que o mesmo se efetiva valendo-se inteiramente da 
tela de vídeo quando as entradas são feitas através do teclado. 

Evidentemente, porém, ambos os processos dependem da complementa- 
ção de diversos outros comandos e recursos para apresentar desempenho 
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otimizado. Tais comandos e recursos serão gradativamente introduzidos 
nos capítulos seguintes. 


3.2 - PROGRAMAÇSO PARCIAL DE MENU DE OPCoES 

Baseados no que foi estudado até esta parte, elaboraremos um md- 
dulo de programa gerador de "menu de opções" que será utilizado como 
mddulo supervisor ou "driver" de um sistema de "CONTROLE DE ESTOQUE* 
que desenvolveremos a partir dele. Inicialmente faremos apenas a parte 
que é responsável pela geração de sua imagem na tela de video. 

Na modalidade TOP DOW de programação estruturada, que é o modelo 
de programação em que se enquadra o modo programável do dBASE, o "menu 
de opções" é o primeiro mddulo criado para um programa, sendo os de- 
mais criados em função dele. 0 mddulo do menu funciona qual um "rotei- 
ro" para elaboração geral do programa, durante cuja execução não sd 
controla seus diversos mddulos como também interage na sua integração. 

A programação estruturada será discutida com mais detalhes no Ca- 
pítulo 14. Por ora, cumpre-nos elaborar o programa gerador da tela do 
menu, com a finalidade de dar os primeiros passos em programação do 
sistema dBASE e demonstrar a aplicação de comandos já estudados e que 
são válidos para controle e utilização da tela de vídeo. 

Dado o fato já comentado anteriormente de que a tela de vídeo é 
tratada pelo dBASE com 24 linhas e 40 ou 80 colunas, representando 960 
ou 1920 pontos de referência para localização do cursor do sistema ou 
para exibição de caracteres na mesma, aconselha-se que a programação 
para seu uso adequado e estético seja baseada em "mapeamento" da diB- 
tribuição dos elementos que deverão ser exibidos, sem o que os resul- 
tados a obter dependerão de tentativas, que poderão ser muitas e can- 
sativas, ou de prática consumada. 

Tal mapeamento poderá ser feito em formulário próprio para a fi- 
nalidade ou em papel quadriculado comum, no qual os limites correspon- 
dentes à tela de vídeo e os números de linhas e colunas sejam marcados 
por qualquer meio. 
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MAPA DE TELA DE VÍDEO - 24 LINHAS X 40 COLUNAS 
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Figura 3.2-A 


Nosso programa gerador da exibição do menu utilizará a tela de 
vídeo de 40 colunas e será baseado no mapeamento ou "layout" reprodu- 
zido na Figura 3.2-A. 

Como foi explicado, um programa em d BASE é iniciado com o aciona- 
mento do comando modify command seguido do nome do arquivo que o arma- 
zenará. Assim, estando o d BASE ativado, comandamos: 

MODIFY COMMAND MENU < RETURN > 

e, após a tela de video ser esvaziada e aparecer o cursor no canto es- 
querdo superior da mesma, podemos digitar as linhas de programa indi- 
cadas abaixo. Após a digitação de cada linha poderá ser pressionada a 
tecla RETURN para deslocar o cursor para o início da linha seguinte ou 
poderão ser pressionadas simultaneamente as teclas CONTROL e X, além 
da barra espaçadora. Correções, inserções e anulações de caracteres ou 
de linhas poderão ser feitas com auxilio das outras teclas de controle 
do comando MODIFY. No caso de dúvidas, poderão ser consultadas as ta- 
belas próprias no primeiro volume desde Curso. 

Linhas do programa a digitar: 

* PROGRAMA "CONTROLE DE ESTOQUE" 

* MÓDULO MENU ~ GERADOR DO MENU DE OPCÔES 
SET TALK OFF 

ER ASE 

o) 5,10 SAY "CONTROLE DE ESTOQUE" 

<3 ó , 10 SAY " " 

o) 9.5 SAY "í - ENTRADA DE PRODUTO NOVO" 

3 10,5 SAY "2 - ENTRADA DE PRODUTO NÃO NOUO" 

ÍD í í , 5 SAY "3 - SAÍDA DE PRODUTO" 

3 12,5 SAY "4 - DEVOLUÇÃO DE PRODUTO" 

3 i 3 t 5 SAY "5 - PESQUISA DE PRODUTO" 
a) 14,5 SAY "6 - EMISSÃO DE LISTAGEM" 

5) 15,5 SAY "/ - ENCERRA O PROCESSAME-NTO" 

3 17,5 SAY "<<< Digite o número da opcsío >>>" 

Ao terminar a digitação, pressionar simultaneamente as teclas de 
controle CONTROL e w para findar a edição do programa e gerar sua gra~ 



vação automática no disquete, que deverá estar alojado no "disk drive" 
corrente para essa finalidade. 0 arquivo que o armazenará será gravado 
com o nome especificado pelo comando MODIFY COMMAND e receberá, também 
automaticamente, a extensão .CMD se outra nào lhe tiver sido destinada 
pelo usuário quando digitou o comando. Conforme foi observado no pri- 
meiro volume deste Curso, quando os arquivos d BASE são gravados com as 
extensões próprias do 3istema, elas não precisam ser incluídas nos co- 
mandos dados para seu uso ou execução, ao passo que, tendo extensões 
diferentes, escolhidas pelo usuário, estas terão de ser incluídas nos 
comandos dado3 para seu uso ou execução. 

Depois de gravado no disquete, o programa poderá ser executado. 
Para tanto, deverá ser dado o comando indicado a seguir: 

DO MENU < RETURN > 

Sua execução produzirá a imagem de vídeo reproduzida a seguir: 



CONTROLE DE ESTOQUE 


1 -- ENTRADA DE PRODUTO NOVO 

2 - ENTRADA DE PRODUTO NSO NOVO 

3 - SAÍDA DE PRODUTO 

4 -- DEVOLUÇÃO DE PRODUTO 

5 - PESQUISA DE PRODUTO 

6 - EMISSSO DE LISTAGEM 

7 - ENCERRA O PROCESSAMENTO 

t 

<<< Dia i te a número da opcao >)> 

Figura 3.2-B 

0 leitor deverá observar que o ponto de prontidão do d BASE retor- 
na automaticamente ao vídeo após a exibição do menu na tela de vídeo, 
fato esse que não deverá ocorrer quando se tratar de um menu de opções 
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definitivo. Ocorre neste caso porque seu programa gerador ainda está 
incompleto em razão de. por ora, destinar-se apenas a gerar sua imagem 
na tela de vídeo. Normalmente, a função de um menu efetivo só pode ser 
encerrada através da escolha de opção de encerramento, condição que 
o nosso menu terá depois de acrescentarmos a seu programa gerador co- 
mandos ainda não estudados. 

Veremos agora que a mesma imagem reproduzida na Figura 3.2-B pode 
ser gerada por apenas dois comandos, TEXT e ENDTEXT , em vez dos diver- 
sos ê x,y SAY, conforme ficou demonstrado através de seu programa ge- 
rador. 0 processo para uso de TEXT e ENDTEXT é descrito a seguir: 

Estando o d BASE ativado no microcomputador, comandar: 

MODIFY COMMAND MENU2 < RETURN > 

Depois de a tela de vídeo estar limpa e o cursor estar posiciona- 
do no canto esquerdo superior, indicando prontidão para digitação, di- 
gitar as linhas de programa indicadas a seguir coro auxílio das teclas 
de controle próprias do comando MODIFY: 

* PROGRAMA "CONTROLE DE ESTOQUE" 

* MÓDULO MENUS - GERADOR DO MENU DE OPCÔES 

SET TALK OFF 

ERASE 

TEXT 

9 

Em seguida, deslocar o cursor para a posição desejada para o tí- 
tulo do menu e digitá-lo no formato em que deverá ser exibido depois: 

CONTROLE DE ESTOQUE 


Continuando, digitar os demais elementos componentes do menu exa- 
tamente na posição e no formato desejados para sua reprodução: 


1 - ENTRADA DE PRODUTO NOVO 
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2 - ENTRADA ... 

vlí M **** M to M 

até o líltimo elemento componente do menu. (Notar que as aspas não são 
necessárias quando são usados 03 comandos TEXT e ENDTEXT. ) 

Apds terminar a composição (ou esboço) da imagem do menu na tela 
de vídeo, "pular" algumas linhas em branco e digitar: 

ENDTEXT 

Finalmente, para encerrar a edição do programa e produzir a sua 
gravação automática em disquete, teclar simultaneamente CONTROL e W. 

Em seguida, executar o programa com o comando: 

DO MENU2 < RETURN > 
e observar a imagem gerada no vídeo. 

Se na primeira tentativa a imagem gerada não for a desejada quan- 
to à posição e ao formato dos elementos do menu, reeditar o programa 
com o comando: 


HODIFY COMhAND MENU2 < RETURN > 

e efetuar a3 correções desejadas com auxílio das teclas de controle, 
conforme foi explicado no item 2.2. 

Comparando-se os dois programas para geração do mesmo menu, con- 
cluir-se-á que o segundo é bastante mais simples, exigindo menos tra- 
balho de digitação e facilitando a estimativa de visualização da tela 
final que será obtida, já que sua imagem corresponderá à da digitação 
feita entre os comandos TEXT e ENDTEXT. 

Além de facilitar a criação de menus, os comandos TEXT e ENDTEXT 
são recomendados especialmente para geração de textos explicativos ou 
de mensagens que devem ser exibidos durante a execução de um programa. 
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Como explicamos em relação ao módulo gerador de menu anterior, 
também este ainda não é definitivo, pois está incompleto. Deverão ser- 
lhe acrescentados comandos que serão estudados nos próximos capítulos. 

As gravações já feitas dos dois diferentes módulos elaborados de- 
verão ser preservadas, pois serão utilizadas logo mais quando comple- 
tarmos o menu, cujo programa gerador terá também duas versões. 
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Dados ou expressões podem ser formatados no dBASE, em entradas ou 
saldas, através das cláusulas PICTURE e USING, respectivamente. 

Cláusula PICTURE 

A cláusula PICTURE é usada exclusivamente com o comando GET na 
entrada de dados. 0 comando GET será estudado no capítulo seguinte, o 
qual trata da entrada de dados através de programas em dBASE II, mas a 
cláusula PICTURE está sendo introduzida com precedência a fim de que a 
descrição e a exemplificação do uso de GET possam ser feitas sem in- 
terrupção e amplamente, incluindo a utilização da cláusula em questão, 
já que GET e PICTURE são usados quase que invariavelmente em conjunto. 

Uma das funções de PICTURE é formatar os dados ou expressões des- 
tinados a variáveis de memória e a campos de registros. A outra função 
sua é selecionar por restrição os dados que serão atribuídos a variá- 
veis e a campos de registros. Ambas as funções são simultâneas. 

0 controle de formatação e a seleção de tipos são exercidos por 
PICTURE através de um gabarito (ou "máscara") criado pelo usuário com 
auxílio dos caracteres: 


, / - . tf 9 A X ! 
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Funções doa caracteres; 


"" determinam o tamanho do gabarito. Não são reproduzidos com os 
dados digitados para entrada, obviamente. 

, / - ou outros separadores determinam separações nos dados ou 
expressões em conformidade com suas posições no gabarito. São reprodu- 
zidos com os dados digitados. 

separa as casas decimais do número, é repetido com os dados. 

# e 9 permitem a entrada apenas de números. Se os dados digita- 
dos se destinarem a variável ou campo numéricos, somente o ponto será 
válido como separador e, neste caso, só pode ser incluído no gabarito 
como separador de casas decimais. Vírgulas ou quaisquer outros separa- 
dores não podem ser incluídos no gabarito. Se a entrada se destinar a 
variável ou campo alfanuméricos, serão aceitos como separadores quais- 
quer caracteres que não sejam letras. 

A permite a entrada de caracteres alfabéticos apenas (letras). 

X permite a entrada de quaisquer caracteres alfanuméricos quando 
os mesmos se destinam a variável alfanumérica ou campo de caracteres. 
Quando a entrada se destina a variável ou campo de registro numéricos, 
permite apenas a entrada de números, aceitando somente o ponto (.) co- 
mo separador decimal. 

! permite a entrada de quaisquer caracteres, convertendo os al- 
fabéticos minúsculos em maiúsculos. 


Cláusula USING 

A cláusula USING tem função similar á de PICTURE, ma3 é usada ex- 
clusivamente com o comando SAY, estudado no capítulo anterior. USING 
controla a formatação e os tipos de dados ou expressões em saídas para 
a tela de vídeo ou para a impressora. 

A cláusula USING não é válida com outros comandos. 

0 controle de formatação e a seleção de tipos para saída de dados 
s3o feitos por USING com auxílio de um gabarito (ou "máscara") criado 
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pelo usuário com utilização dos seguintes caracteres: 




Funções dos caracteres: 

"" determinam o tamanho do gabarito. Não são reproduzidos com os 
dados, obviamente. 

/ e * determinam a separação dos dados em conformidade com suas 
posições no gabarito. São reproduzidos juntamente com os dados. 

separa as casas decimais do número. É repetido com os dados. 

, separa dígitos à esquerda do ponto decimal, é reproduzido jun- 
tamente com os dados. 

t e 9 permitem saída apenas de números. Se os dados contidos em 
variável ou campo de registro forem alfanuméricos, darão saída apenas 
a "espaços", isto é, sairão "brancos" nos lugares das letras. No ga- 
barito formado com os caracteres « e 9 são válidos o ponto (.), espaço 
e outros separadores. 0 ponto separa dígitos decimais, enquanto que os 
outros separadores (vírgula, espaço etc.) são úteis para separar casas 
na parte inteira do número. 

A permite a saída de caracteres alfabéticos apenas (letras). Se 
os dados forem constituídos por caracteres numéricos, eles serão subs- 
tituídos por caracteres A. 

X permite a saída de quaisquer caracteres, desde que não consti- 
tuam valor aritmético. Caso contrário, dará saída a si mesmo. 

! converte as letras minúsculas dos dados em letras maiúsculas. 

$ ou * um ou outro será impresso nos lugares de zeros à esquerda 
ío número, em conformidade com sua posição no gabarito. Se incluídos 
no gabarito nas posições das casas decimais, substituirão os seus dí- 
gitos na saída, ainda que os mesmos sejam maiores do que zero. 

No capítulo seguinte será demonstrado amplamente o uso das cláu- 
sulas PICTURE e USING, de modo que deixamos de fazê-lo neste. 
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Mo modo programável do dBASE as entradas de dados via teclado são 
feitas quase que invariavelmente através do uso conjunto dos comandos 
GET e READ, embora possam ser feitas também por meio dos comandos AP- 
PEND e INSERT, usados mais apropriadamente no modo interativo e estu- 
dados no primeiro volume de3te Curso. 

Por oportuno, lembramos que todos os comandos tratados como prd- 
pnos do modo interativo são igualmente válidos para uso no modo pro- 
gramável, devendo ser usados nesta modalidade sempre que possam produ- 
zir resultados otimizados ou os desejados pelo programador. 

Em verdade, muitos dos comandos interativos são indispensáveis na 
elaboração de programas em dBASE e a prática tem-nos demonstrado que a 
melhor programação é obtida através do uso irrestrito dos comandos de 
seus dois modos de operação. 

Assim, não há nenhum impedimento, por exemplo, em elaborar pro- 
gramas em que as entradas de dados sejam processadas por comandos como 
APPEND e INSERT, e a sua adoção ou não deve ser determinada por fato- 
res peculiares a cada situação ou por conveniência do usuário. 

Os comandos GET e READ são usados preferencialmente para entradas 
de dados no modo programável porque as suas características especiais 
permitem formatar a tela de vídeo adequadamente e "a gosto" para a fi- 
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nal idade, ao mesmo tempo que oferecem facilidades para a digitação dos 
dados e sua destinação a variáveis de memória e a campos de registros. 


Comanda GET 


*** GET exibe ou imprime no vídeo, em local determinado pelo comando 
@ x,y, o conteúdo de variável predefinida ou de campo de registro 
de arquivo em uso. Ê usado obrigatoriamente com o comando ê x,y, 
podendo ser precedido opcionalmente pelo comando SAY. 

Sua sintaxe é: 


0 x,y CS AY <texto ou comentário»] 

GET <no»e de variável ou de campo 

de registro) CPICTURE <"fon»ato")] 


Exemplos do uso de GET: 


1. a 5,15 GET A 

2. a 7,5 SAY "O conteúdo da variável ê“' J GET X 

3. a 9,10 SAY "0 conteúdo do campo é-" GET NM 

4. 3 11,15 SAY 1234567 USING "** , ### , . H#" 

5. a 14,20 SAY "01.04.88" USING "XX/XX/XX" 


Assumindo que o d BASE esteja ativado e que as variáveis A e X te- 
nham sido previamente definidas e que o arquivo a que pertence o campo 
NM esteja em uso no momento de execução do comando, os exemplos acima 
produzirão: 

1. Exibição do conteúdo da variável A na quinta linha e dé- 
cima quinta coluna da tela de vídeo. 

2. Exibição do conteúdo da variável X, após a frase impressa 
por SAY, na posição determinada pelas coordenadas x e y. 

3. Exibição do conteúdo do campo de regi3tro NM, após o co- 
mentário expresso por SAY, na posição determinada pelas 
coordenadas x e y. 

4. Exibição de 1,234,567.00 na linha 11, coluna 15. 

5. Exibição de 01/04/88 na linha 14, coluna 20. 
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Convém salientar que GET não cria a variável ou o campo de regis- 
tro que enuncia. Se especificar variável não definida previamente ou 
campo de registro inexistente ou de arquivo fora de uso no momento de 
sua execução, ocasionará a interrupção do programa por erro de sintaxe 
e gerará a emissão de mensagem correspondente. 

Se a variável enunciada por GET for numérica e tiver conteúdo nu- 
lo (0), será exibida na tela de vídeo a área que lhe é destinada nor- 
malmente pelo sistema, correspondente a 10 dígitos. Tal área será exi- 
bida com o sinal de dois pontos (;) como delimitadores extremos e um 0 
ocupando a última posição. Se a variável tiver conteúdo não nulo, este 
será exibido em condição idêntica à descrita para conteúdo nulo. 

Se a variável enunciada por GET for alfanumérica e não tiver con- 
teúdo, será exibida no vídeo a área que lhe tiver sido destinada atra- 
vés do comando STORE, sendo tal área também demarcada nos extremos com 
o sinal de dois pontos (;). se a variável já tiver conteúdo, este será 
exibido em condição idêntica ã descrita para conteúdo não existente. 

Se GET enunciar campo de registro, será exibida no vídeo a área 
que lhe corresponder, em conformidade com a estrutura do arquivo a que 
pertence, com o conteúdo que tiver, seja ele constituído por número ou 
caracteres alfanuméricos, seja apenas por espaços ("brancos'’). 

Comando READ 

*** READ interrompe o andamento do programa ao ser executado e desloca 
o cursor para a área correspondente à exibição feita pelo comando 
GET de conteúdo de variável ou campo de registro, permitindo que 
nessa mesma área seja digitado novo conteúdo ou que seja confirma- 
do o já existente (o exibido). Aquele que permanecer será atribuí- 
do automaticamente ao mesmo campo de registro ou à mesma variável 
- ao que tiver sido enunciado - apús pressionar RETURN. O conteúdo 
referido poderá 3er qualquer: nulo ou não, caracteres ou simples- 

mente espaços ("brancos"). A sintaxe de READ é simplesmente: 

READ 
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READ é válido apenas após a execução de um comando GET do tipo: 


3 x„y ESAY <"comentár io">] GET < var i ável/canpo> 
Exemplo de um pequeno módulo com e, SAY , GET, PICTURE e READ: 


ERASE 

ST ORE " " TO DT 

a 5,15 SAY "Digite a data" GET 

DT PICTURE "99/99/99" 


READ 


A primeira linha do módulo provoca o esvaziamento da tela. 

A segunda linha define a variável DT e lhe atribui 8 "brancos". 

A terceira linha produz no vídeo (na linha 5, a partir da coluna 
15) a impressão do texto determinado em SAY. seguido do gabarito es- 
pecificado em PICTURE, conforme reprodução feita a seguir: 


Digite ada tas / / : 


Finalmente, o comando READ (quarta linha do módulo exemplificado) 
posiciona o cursor no primeiro espaço em branco do gabarito, a fim de 
que sejam digitados ob dados que serão atribuídos à variável DT. Como 
o gabarito foi criado com o caractere-chave 9, apenas números serão a- 
ceitos através da digitação, sendo impossível digitar letras ou outros 
caracteres, t interessante observar que, durante a digitação, o curBor 
saltará automaticamente os separadores, devendo o usuário estar atento 
ao fato, a fim de não digitar os dados erroneamente. 

Quando READ é usado em conjunto com o comando GET, após a execu- 
ção de ambos o cursor do sistema é deslocado automaticamente para a 
área em que é exibido o conteúdo da variável ou do campo de registro 
especificado em GET, permitindo digitar dados nes3a mesma área, que é 



operada pelo d BASE na modalidade "full screen" (= tela plena). Em tal 
condição, os dados digitados são destinados ou atribuídos direta e au- 
tomaticamente à variável ou ao campo de registro enunciado no comando 
GET e cuja área foi exibida no vídeo, com ou sem conteúdo. 

Depreende- se do exposto que: 

- usado sem READ. GET apenas exibe no vídeo o conteúdo de vaná- 
véis de memória e de campos de reqistros predefinidos - ou já 
existentes - e disponíveis no momento de sua execução: 

- usado em conjunto com READ, GET também exibe na tela de video 
os conteúdos de variáveis e de campos de registros predefinidos 
e disponíveis no momento de sua execução, mas possibilitando, 
nessa condição, alterar tais conteúdos ou criá-los caso sejam 
nulos ou apenas espaços ("brancos"). 

Para atribuir números, valores ou conteúdos alfanuméricos a novas 
variáveis através do uso conjunto de GET e READ, as mesmas deverão ser 
previamente definidas ou criadas nas seguintes condições: 

- com valor 0 (zero) no caso de variáveis numéricas: 

- com espaços ("brancos") no caso de variáveis alfanuméricas. 

Para atribuir números, valores ou conteúdos alfanuméricos a cam- 
pos de registro novo de arquivo através do uso conjunto de GET e READ, 
o arquivo tem de estar em uso no momento de execução de ambos 03 co 
mandos, e o novo registro - com campos "em branco", portanto - deverá 
ser requerido previamente no programa através do comando APPEND BLANK. 

No capítulo seguinte, que tratará dos recursos do d BASE disponí- 
veis para efetuar alterações ou atualizações de dados através de pro- 
gramas, será examinada a competência de GET e READ a esse respeito. 


Comando CLEAR GETS 

*** 0 comando CLEAR GETS evita que as áreas correspondentes a conteú- 
dos de variáveis ou de campos de registros exibidos no vídeo atra- 
vés de GET sejam abrangidas por um comando READ subsequente. 



A sua sintaxe é simplesmente: 


CLEAR GETS 

Exemplo do uso de CLEAR GETS num pequeno módulo: 


ERASE 

a) 3,5 SAY "Código do produto" GET 

COD PICTURE 

3 5,5 SAY "Nome do produto" GET Nh 
CLEAR GETS 

a 7,10 SAY "Quantidade" GET QT PICTURE "9999" 
3 9 , í 0 SAY "Preco" GET PRV PICTURE "###** . tttt" 
READ 


Ao ser executado esse trecho do programa, o código e nome do pro- 
duto serão exibidos normalmente no vídeo e, por força do comando CLEAR 
GETS, não serão alcançados pelo comando READ. Quando este for executa- 
do, o cursor 3erá deslocado automaticamente para o campo de digitação 
criado por GET para a variável QT, prosseguindo depois para o campo de 
digitação correspondente a PRV e assim por diante. 

Vamos agora elaborar um módulo de programa com o propósito de de- 
monstrar ef et ivamente o uso de GET, READ e CLEAR GETS, já que tais co- 
mandos costumam causar a principiantes em programação em dBASE algum 
embaraço na sua assimilação, em vista de sua versatilidade e - por que 
não dizer? - de sua complexidade. 

Vamos chamar esse módulo de PEGDADO. Assim, estando o dBASE ati- 
vado, comandar: 


MODIFY COHMAND PEGDADO 
e, em seguida, digitar: 
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SET TALK off 
ERASE 

STORE " " TO NOME 

STORE " "TO END 

STORE " " TO TEL 

STORE 0 TO IDADE 

S) 3 , í 0 SAY "DADOS PARA AGENDA" 

áj ó,0 SAY "Digite o nome" GET NOME 

(D 8,0 SAY "Digite o endereço" GET END 

3 i0 , 5 SAY "Telefone" GET TEL PICTURE "999-9999" 

a 10,25 SAY "Idade" GET IDADE PICTURE "99" 

READ 
8 14,0 

? "NOMEs", NOME 
? "ENDEREÇO:", END 
? "TEL. :",TEL," IDADE : ", IDADE 

Lembramos que no Capítulo 22 do primeiro volume deste Curso foi 
feito o estudo completo do uso de variáveis no d BASE II e dos comandos 
referentes às mesmas, tais como STORE, INPUT, ACCEPT e outros. 

Terminada a digitação, teclar CONTROL e W para encerrar a edição 
do módulo e gravá-lo no disquete. Em seguida, executá-lo, comandando: 

DO PEGDADO < RETURN > 

0 leitor observará que o programa terá sua execução sustada após 
gerar a tela de video reproduzida na Figura 5-A. 

Notará também que o cursor do sistema estará posicionado no pri- 
meiro espaço do "conteúdo" da variável predefinida NOME, exibido pelo 
coiando GET. (Lembremos que a variável NOME recebeu apenas espaço em 
branco ao ser definida por STORE e que esse é o seu conteúdo por ora.) 

Nessa condição, por força do comando READ, o conteúdo da variável 
NOME pode ser alterado, isto é, o seu espaço em branco pode ser preen- 
chido através de digitação pelos dados que se lhe queira atribuir. 
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Uma vez digitados os dados e pressionada a tecla RETURN , o cursor 
saltará automaticamente para a próxima área exibida por GET , com fina- 
lidade idêntica e assim sucessivamente. 

Depois de processada a última área nessas condições, a execução 
do programa prossegue automática e normal mente. 



Figura 5~A 

No caso do módulo de programa em exame, sua execução cabal gerará 
a exibição da parte final da teia de vídeo, com os dados digitados nos 
campos exibidos por GET e o retorno do ponto de prontidão para comando 
do dBASE. 

A parte restante da tela a ser exibida é reproduzida na Figura 
5~B r sem os dados digitados, que dependerão do usuário. 



Figura 5-B 

A fim de que possam ser claramente entendidas as funções de GET e 
READ, vamos usar o mesmo módulo e fazer nova experiência, eliminando o 
comando READ. Para tanto, bastará comandar: 
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MODIFY COHHAND PEGDADO 


< RETURN > 


para que ô aódulo seja listado no vídeo no »odo de edição. 

Nessa condição, o cursor deverá ser deslocado com auxílio das te- 
clas de controle CONTROL e C ou X até a linha e* que se encontra o co- 
mando READ e, em seguida, devea ser pressionadas as teclas CONTROL e T 
para que ele seja eliminado. 

Pressionar ea seguida CONTROL e W para que o aódulo sejá regrava- 
do no disquete. 

Finda a regravação. executá-lo novaaente: 

DO PEGDADO <RETURN> 

e observar que, sea o coaando READ, sua execução náo é interrompida, 
sendo impossível atribuir dados às variáveis predef inidas. 

Aproveitando ainda o mesmo módulo, vaaos alterá-lo ligeiramente, 
objetivando demonstrar taabéa coa clareza a função de CLEAR GETS. 

Como primeira providência, editar o aódulo: 

MODIFY COMMAND PEGDADO < RETURN > 

Depois de listado no vídeo no modo de edição, efetuar as seguin- 
tes alterações nas linhas de programa indicadas: 

Na terceira linha: 

ESTORE "ASTROGILDO DA SILUA" TO NOME 

Na quarta linha: 

ST ORE "RUA SEM SAiDA, 00" TO END 

Após a nona linha: 
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CLEAR GETS 


Na linha anterior à linha @ 14,0: 

READ 

Feitas essas alterações coa auxílio das teclas de controle, pres- 
sionar CONTROL e W e, em seguida, executar novanente o addulo: 

DO PEGDADO < RETURN > 

O leitor observará que, na nova condição do addulo ea experiên- 
cia, sua execução será interroapida depois de gerada no vídeo a tela 
reproduzida na Figura 5-C. 


DADOS PARA AGENDA 

Digite o nome JAS1ROGILDO DA SILVA : 
Digite o endereço :RUA SEM SAiDA, 00 
Telefone 2 — s ltíade s 0: 

Figura 5-C 



0 cursor estará posicionado no priaeiro espaço do caapo telefone 
exibido por GET e correspondente à variável TEL, significando ser este 
0 priaeiro caapo destinado a receber dados via digitação. Os preceden- 
tes - correspondentes a nome e END - não foram abrangidos por READ por 
força do comando CLEAR GETS, inserido no ponto adequado. 

Sugerimos que seja feita mais uaa experiência coa os comandos em 
questão, a fim de que seja comprovada sua utilização também para alte- 
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rar conteüdos de variáveis ou de campos de registros que não sejam es- 
paços em branco. 

0 mesmo módulo PEGDADO poderá ser usado para tal finalidade, bas- 
tando eliminar do mesmo o comando CLEAR GETS. 

0 procedimento a ser adotado para a realização da experiência é 
basicamente o mesmo utilizado nas experiências anteriores, de maneira 
que deixamos de descrevê-lo por acreditar que, neste ponto do Curso, o 
leitor acompanhante já pode realizar a experiência sem dificuldades. 
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ALTERACSO E ELIHINAÇSO 




L> Í:Z I > A D O ÍE> V IA P R O (i I? AHAS 


6-i - ALTERACSO DE DADOS 


Sejam para fina de atualizações ou de correções, as alterações de 
dados através de progranas são feitas no d BASE preferencialmente com o 
emprego do comando REPLACE, estudado no primeiro volume deste Curso. 
Mas podem também ser feitas com a utilização de outros comandos, como 
GET e READ, estudados no Capítulo 5, ou EDIT, BROWSE, CHANGE e UPDATE, 
estudados também no primeiro volume. 

Em matéria de alteração de dados, o emprego do comando adequado 
depende do tipo de arquivo processado, de sua estrutura e extensão dos 
campos e de diversos outros fatores, como frequência das alterações e 
abrangência das mesmas, nível de operadores etc. 

Podemos dizer que cada arquivo de dados requer um processo espe- 
cífico para alterações dos conteddos de seus campos, em consequência 
do que não é possível estabelecer regras rígidas para sua programação. 

Assim, vamos enfocar a questão através da exposição de casos con- 
siderados mais incidentes, sugerindo as soluções julgadas mais adequa- 
das para os mesmos. 
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6.2 - ALTERAÇÕES DE DADOS ATRAVÉS 

DOS COMANDOS GET E READ 

Conforme verificamos no Capítulo 5, os comandos GET e READ usados 
em conjunto possibilitam efetuar alterações nos conteúdos de campos de 
registros e de variáveis de memória, embora sejam usados precipuamente 
para entrada de dados. 

Para efetuar alterações nos conteúdos de campos de registros ou 
de variáveis de memória, basta causar a exibição dos mesmos na tela de 
vídeo através do comando GET e acionar em seguida o comando READ. Nes- 
sa condição, o cursor do sistema é posicionado automaticamente na área 
ocupada pelo conteúdo exposto, permitindo digitar nesse mesmo local a 
alteração desejada ou o novo dado. 0 que permanecer nessa área passa a 
ser, também de modo automático, o novo conteúdo do campo de registro 
ou da variável em processamento. 

Se, por qualquer razão, for decidido manter sem alterações um da- 
do exibido após a execução de GET e READ, basta pressionar a tecla RE- 
TURN no ato. Assim, o dado será confirmado e permanecerá intacto. 


6.3 - ALTERAÇÕES DE DADOS ATRAVÉS DOS 

COMANDOS REPLACE, EDIT, BROUSE E CHANGE 


CASO As Efetuar alterações em diversos ou todos os cam- 
pos do registro utilizando apenas um ou dois novos dados 
entrados via teclado. 

Nesse caso o uso de REPLACE é o mais indicado, pois, uma vez di- 
gitados os novos dados, os quais devem ser atribuídos transitoriamente 
a uma ou mais variáveis de memória, conforme o caso, as alterações dos 
conteúdos dos campos do registro são feitas internamente pelo próprio 
programa. Obviamente, o registro deve ser invocado previamente por co- 
mando apropriado. Exemplo: 



ACCEPT "Digite o nome do produto " TO NOME 
LOCATE FOR ^roduto> - NOME 

INPUT "Digite o novo preço de custo " TO NPC 
REPLACE (cust o ) WITH NPC 
REPLACE < pr venda > UI TH NPC * 1.5 
REPLACE <pratac> WITH NPC * 1.23 


Observação: Ae palavras colocadas entre os sinais < e > representam 

nomea de campos de regiBtroB. 

CASO B: Efetuar alterações em diversos ou todos os cam- 

pos do registro com dados específicos para cada u«, os 
quais devem ser digitados um a um. 

Em tal caso, tanto o comando REPLACE como EDIT ou CHANGE são in- 
dicados, dependendo da conveniência operacional, da estética desejada 
para a tela de vídeo, do nümero de campos e de sua extensão etc. 

Exemplo COl REPLACE: 


AC CEP T "Digite o código do produto " TO MCOO 


LOCATE 

FOR tcódigo) = 

MCOD 



ACCEPT 

"Digite 

o 

novo 

nome 

* 

H 

O 

MNOME 

ACCEPT 

"Digite 

o 

novo 

endereço 

" TO MEND 

ACCEPT 

"Digite 

o 

novo 

tel " 

TO 

MTEL 


REPLACE < n ome > UITH MNOhE 
REPLACE < end > WITH MEND 
REPLACE < t e 1 > WITH MTEL 


Exemplo com EDIT: 
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INPUT "Digite o n° do registro a alterar " TO N 
GOTO N 
EDIT tt 


ou 


ACCEPT "Digite o código do produto TO MCOD 
LOCATE FOR <cod> * liCOD 
EDIT tt 


Qualquer dos dois exemplos produz no vídeo a exibiçào de todoB os 
campos do registro visado, no modo de edição, permitindo que a altera- 
ção de cada campo seja feita diretamente via teclado, com auxílio das 
teclas de controle ativadas pelo comando EDIT. 


Exemplo com CHANGE: 


ACCEPT "Digite o nome do cliente " TO MNOME 
LOCATE FOR <nome> * MNOME 
? "Indique o(s) campo(s) i\ alterar.' 

? "Havendo mais de um, separe os com virgula. 
ACCEPT TO CAMPOS 
CHANGE &CAMPOS 


Empregado nessa modalidade, CHANGE exibirá no vídeo um campo es- 
pecificado por vez, com o conteúdo respectivo, e, na linha seguinte, 
uma das palavras TROCAR ou TO, conforme seja o tipo do campo - de ca- 
racteres ou de números -, a fim de que as alterações sejam digitadas 
em seguida, no modo próprio de seu funcionamento. 

CASO C: Efetuar alterações idênticas em um ou mais ca*- 
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pos de todos os registros do arquivo ou apenas daqueles 
que satisfaçam uma condição determinada. 

0 coaando REPLACE é o mais indicado para esse caso. Exemplo: 


ACCEPT "'Novo prazo para faturamento? " TO NPRAZ 
ACCEPT "Nova data-1 imite mensal? " TO NDAT 
REPLACE ALL <prazfat> WITH NPRZ CFOR <condição>J 
REPLACE ALL <datafim> WITH NDAT CEOR < cond i ção > il 


CASO Os Efetuar alterações específicas, coí dados apro- 
priados a cada registro, em um ou mais campos de todos 
os registros do arquivo ou apenas dos que satisfaçam uma 
condição determinada. 

Nesse caso podem ser utilizados os comandos BROWSE e CHANGE, sen- 
do que apenas CHANGE permite selecionar os registros que atendam a uma 
exigência determinada. 

Exemplo com BROWSE: 


? "Indique o<s) campo<s> a alterar.” 

? "Havendo mais de um, separe-os com vírgula." 

ACCEPT TO MNOME 

GOTO TOP 

BROWSE FIELD AMNOME 

♦ 

Com BROWSE empregado nessa condição, os campos indicados de todos 
os registros do arquivo serão exibidos na tela de video, na modalidade 
de edição, permitindo que as alterações sejam digitadas individual e 
diretamente em cada campo. 


Exemplo com CHANGE: 
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? "Indique o<s) campo(s) » aiterar 
? "Havendo mais de um, separe-os com virgula." 
ACCEPT TO MNOME 

CHANGE FIELD &MNOME LFOR < corwi i ção > 3 


Empregado nessa modalidade, CHANGE exibe sucessivaaente, um por 
vez, todos os registros do arquivo ou apenas os que satisfaçam uma de- 
terminada condição, com somente os campos especificados e Beus respec- 
tivos conteúdos, em modo de edição, permitindo que as alteraçBes dese- 
jadas sejam digitadas individualmente para cada campo. 


6.4 - ALTERACoEB DE DADOS 

ATRAVÉS DO COMANDO UP D ATE 

Um dos recursos mais interessantes e poderosos oferecidos pelo 
d BASE para alterações de dados de um arquivo é o que provém do comando 
UPDATE . 

UPDATE possibilita alterar um arquivo de dados a partir de outro 
arquivo, criado e usado especialmente para essa finalidade, de tal mo- 
do que as alterações sejam efetuadas em lotes. Esse processo oferece a 
conveniência de submeter o arquivo principal de dados a uso menos in- 
tenso, minimizando erros e riscos gerais inerentes ao sistema de arma- 
zenamento de informaçõeB em disquetes. 

UPDATE foi descrito e amplamente exemplificado no primeiro volume 
deste curso. Assim como os demais comandos abordados neste capitulo, 
deve ser usado sempre que as conveniências que oferecer sejam prepon- 
derantes. Todavia, salientamos que os interessantes e poderosos recur- 
sos que UPDATE oferece devem ser considerados plenamente pelo progra- 
mador sempre que as alterações de dados de um arquivo tiverem de ser 
feitas com acentuada frequência. 
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ELlMlNACaO DE DADOS 


A eliminação de dados de arquivo pode ater-se a um ou mais campos 
de um registro ou abranger todos. 

Eliminar dados de campos de registro significa trocar seu conteú- 
do não nulo por conteüdo nulo, o que equivale a alterar os conteúdos 
dos campos ou os dados contidos neles. 

Assim, para eliminar dados de apenas parte dos campos de um re- 
gistro, são válidos os comandos e recursos abordados neste capítulo. 
Por exemplo: 

M « • 

ACCEPT "Digite o nome do produto " TO NOME 

LOCA TE FOR < produto) * NOME 

REPLACE < campo alfanumérico) WITH 

REPLACE < campo numérico) U1TH 0 


Eliminar os conteúdos de todos os campos de um registro equivale 
a anular o registro. Nesse caso, deve ser usado o comando DELETE, con- 
forme exemplificação feita a seguir: 


ACCEPT "Qual o item a buscar? " TO IT 
LOCA TE FOR <ltem> - IT 


ACCEF I "Elimina o 


J.F REBP 
ER ASE 

RETURN 
ENDIF 
IF R ESP 


£5 


"N 


// 


"S 




reg i stro? 


< S/N ) 


" TO RESP 


DELETE 

ENDIF 
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Como sabemos, DELETE apenas assinala o registro para eliminação, 
sendo esta efetivamente feita pelo comando PACK, o qual poderá ser in- 
cluído no mesmo módulo, se houver conveniência. Sobre este ponto, con- 
vém reler o Capítulo 12 do primeiro volume deste Curso. 

Ao terminar a leitura deste capítulo, o seguidor de nosso Curso 
terá percebido que a alteração de dados de arquivos processada através 
de programas em dBASE depende ínteiramente de comandos e recursos dis- 
poníveis no chamado MODO INTERATIVO do sistema. Esse fato patenteia de 
forma inequívoca o que temos afirmado com frequência a respeito do MO- 
DO PROGRAMÁVEL do dBASE: seu estudo e aplicação só são viáveis após o 
conheciaento pleno de todos os comandos e recursos disponíveis em seu 
aodo interativo. 

0 que afirmamos em relação ao tópico tratado neste capítulo apli- 
ca-se de forma geral â programação em dBASE, razão por que enfatizamos 
a necessidade de o iniciante em programação em dBASE aprofundar-se nos 
estudos dos comandos e recursos do modo interativo do sistema a fim de 
poder dominar plenamente o modo programável do mesmo e colher de sua 
aplicação os melhores resultados. 


4 * *4 


44 
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Una das principais vantagens do uso de menus em programas em ge- 
ral é a de facilitar a integração entre o usuário e o programa. Isto 
quer dizer que, através da exibição do menu do programa, o usuário to- 
ma rapidamente conhecimento dos seu3 recursos e passa a utilizá-los 
com facilidade, já que, para tanto, basta digitar os símbolos - letras 
ou números - que os acionam. 

Na prática, essa peculiaridade de programas dirigidos por menus 
permite que qualquer usuário iniciante em computação os opere sem di- 
ficuldades, com um mínimo de digitação. 

Todavia, para que um menu de opções de programa atenda plenamente 
a sua finalidade, é preciso que reúna recursos importantes e caracte- 
rísticos, entre os quais destacamos: 

- dado o comando para sua execução, ele deve manter-se ativo, is- 
to é, "rodando", até que o usuário decida o contrário; 

- a escolha de qualquer das opções para execução de comandos ou 
de mddulos por ele supervisionados deve gerar a ação ou proces- 
samento correspondentes; 

- após a execução de qualquer comando ou módulo de programa por 
seu intermédio, deve retornar a ele o controle do sistema; 

- no caso de o operador digitar erroneamente símbolos não exis- 
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tentes naB opções oferecidas, sua execução não deve ser inter- 
rompida e o usuário deve aer advertido sobre o fato através de 
uma mensagem exibida no vídeo. 

Para que os requisitos descritos sejam atendidos, o programa ge- 
rador de menu deve incluir outros comandos além dos que geram sua exi- 
bição ou impressão. São eles os comandos de repetição, de desvio con- 
dicional e de retorno. 

Como tais comandos são utilizados largamente na programação geral 
em dBASE e, por consequência, em programa gerador de menu, aerão estu- 
dados neste capítulo, a fim de podermos concluir a elaboração do pro- 
tótipo de programa gerador de menu iniciado no capítulo anterior. 

Comando OO UH I LE ENDDO 

*** 0 comando composto DO WHILE... ENDDO possibilita repetir a execu- 
ção de outro comando, de conjunto de comandos, de programa ou de 
módulo de programa enquanto for verdadeira uma condição expressa 
por ele. Sua sintaxe é: 

DO UHILE <condicão> 

<comando(s ) > 

ENDDO 

Além de a condição expressa no comando ter de ser verdadeira, é 
imperioso que o(s) comando (s) a ter (em) sua execução repetida seja(m) 
inserido (s) entre DO WHILE e seu complemento ENDDO, já que é este que 
indica o ponto de retorno do ciclo de repetição. 

0 controle de repetição é feito com auxílio de uma variável qual- 
quer, ã qual se atribui um valor ou um conteüdo alfanumérico, vincu- 
lando-o a DO WHILE como condição verdadeira. Por exemplo: 

STORE "S" TO REP 
DO UHILE REP = "S" 

<comando<s) > 

. ENDDO 
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Nessa situação, isto é, enquanto S for o conteúdo de REP, os co- 
mandos incluídos entre DO WHILE e ENDDO serão executados repetidamente 
e na ordem em que foram incluídos. 

Para interromper a ação de DO WHILE... ENDDO é necessário incluir 
no ciclo repetitivo um comando cuja execução permita alterar opcional- 
mente o conteúdo de REP, conforme é exemplificado a seguir: 

STORE "C" TO REP 
DO WHILE REP - "C" 

(comando(s) > 

? "Digite C p/continuar ou P p/parar 

ACCEPT TO REP 

ENDDO 

Nessa disposição, após a execução de cada ciclo, o usuário é ins 
tado a digitar C ou P, permitindo ou não a repetição de sua execução. 
Se digitar C, mantém a condição expressa por DO WHILE e a repetição 
ocorre. Digitando P, altera o conteúdo da variável REP e, consequente 
mente, a condição expressa por DO WHILE, que é desativado, cessando a 
repetição do circuito. 

0 controle de repetição pode ser feito também com auxílio de uma 
variável contadora incluída no circuito repetitivo, conforme exemplo 
que segue: 


STORE O TO C 
DO WHILE C<10 

<co«ndo(5 > > 

STORE C+i TO C 
ENDDO 


Nessa condição, a cada execução dos comandos incluídos entre DO 
WHILE e ENDDO a variável C é incrementada em uma unidade, até atingir 
10, quando então a condição expressa por DO WHILE deixa de ser "verda- 
deira", cessando a sua ação. 

Vários comandos DO WHILE... ENDDO podem ser encadeados. 
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Em computação, UB trecho de programa compreendido entre DO WHILE 
e ENDDO é denominado "laço* ("loop" em inglês), em razão de permitir 
que a sequência normal de execução do programa seja interrompida tem- 
porariamente a fim de que os comandos incluídos em seu circuito sejam 
executados repetitivamente, em conformidade com uma condição expressa 
ou enunciada no comando. 

Todavia, se uma outra condição especial for especificada dentro 
do laço DO WHILE... ENDDO, seu fluxo de execução pode ser desviado no- 
vamente para o seu início, sem execução dos comandos restantes do cir- 
cuito. Tal desvio é feito pelo comando descrito a seguir: 

Comando LOOP 

*** LOOP desvia o fluxo de execução de comandos contidos em circuito 

DO WHILE... ENDDO para o início do mesmo. Sua sintaxe é apenas: 

LOOP 

De certa forma o efeito de LOOP é o mesmo de ENDDO, jâ que a fun- 
ção deste é retornar o fluxo de execução do laço DO WHILE... ENDDO pa- 
ra o seu início, com a finalidade de repetição. A diferença entre am- 
bos reside no fato de que, depois de ativado por determinada condição, 
LOOP impede que comandos situados entre ele e ENDDO sejam executados. 

Exemplo de módulo com DO WHILE... LOOP... ENDDO: 

DO UHILE <condtção> 

<comando(s > > 

SE QUANTIDADE >100 

SK IP 

LOOP 

FIM 

< COMANDO < S ) > 

ENDDO 

Nesse exemplo, se a condição QUANTIDADE >100 verificar-se num re- 
gistro em processamento, os comandos situados após LOOP não serão exe- 



cutados em relação a esse registro, que será pulado (SKIP) , retornando 
o fluxo de execução para o Inicio do laço. SE e FIM no exemplo repre- 
Bentam o comando IF... ENDIF, que será estudado a seguir. 


Comando IF . . . ELSE- . . ENDIF 

*** IF... ELSE... ENDIF é um comando composto que, condiciona lmente, 

possibilita a execução de comando(s), de programa ou de módulo de 
programa situados fora da sequência de comandos em que se encon- 
tra. Sua sintaxe é: 

IF (condição) 

(comando(s) > 

LELSE3 

<comando< s ) > 

ENDIF 

A cláusula ELSE é opcional no comando, enquanto que ENDIF é obri- 
gatória porque indica a posição no programa onde termina a ação de IF. 

A condição expressa por IF pode ser formulada com caracteres al- 
fanuméricos ou variável Alfanumérica e número ou variável numérica. 

Um comando IF é executado somente se a condição que expressa for 
verdadeira. Todavia, deve 3er observado que, se incluir a cláusula EL- 
BE e a condição que expressa não for verdadeira, será(ão) executado (s) 
o(s) comando (s> incluído (s) entre ELSE e ENDIF. Se a condição expressa 
não for verdadeira e não houver cláusula ELSE no comando, o fluxo de 
execução salta para a primeira linha de programa após ENDIF. 

Como sabemos, normalmente um programa é executado linha por linha 
de comando, sequencialmente, isto é, na ordem em que foram digitadas, 
a menos que existam no mesmo comandos de repetição (DO WHILE... ENDDO, 
como já vimos) ou comandos como IF... ELSE... ENDIF, com capacidade de 
desviar 0 fluxo de execução, desde que verificadas as condições ex- 
pressas por eles. 

Em razão de sua função, IF... ELSE... ENDIF é considerado coman- 
do de desvio condicional. 0 d BASE não possui comandos de desvio in- 
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condicional, co»o GOTO c gosub do BASIC. 


RI 


C1I 


CiF 


C2I 


C2F 

RF 


Exeaplo de uso de IF... ENDIF: 


SET TALK OFF 
ERASE 

8 7,1® SAY "Digite o preço" 

INPUT TO PR 
IF PR >5000 

8 10,5 SAY "Muito caro! Melhore a oferta!'' 
ENDIF 

SET TALK ON 

Exeiplo de USO COl DO WHILE... ENDDO e IF... ELSE... ENDIF 

SET TALK OFF 
ERASE 

STORE "S" TO QQ 
STORE 1 TO CONT 
DO WHILE QQ = "S" 

3 5,5 SAY "Digite o preto para o item 
3 5,32 SAY CONT USING "99" 

8 7,0 

INPUT TO PR 

IF PR >5000 

a 9,10 SAY "Muito caro!" 

ELSE 

a 9,10 SAY "OK! Preco aceito!" 

ENDIF 

STORE CONT+i TO CONT 
3 12,10 SAY "Continua? (S/N)" 

ACCEPT TO RESP 
IF RESP “ "S" 

ERASE 

LOOP 

ELSE 

STORE "N" TO QQ 
ENDIF 
ENDDO 
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SET TALK ON 


Nesse exemplo, temos um laço DO WHILE... ENDDO e dois comandos de 
desvio condicional com IF... ELSE... ENDIF. 

As marcações RI e RF no extremo esquerdo da página não fazem par- 
te das instruções. São usadas apenas como referências. RI e RF assina- 
lam o início e o fim do "laço repetitivo" DO WHILE... ENDDO. 

Os sinais ClI e ClF assinalam o início e o fim do primeiro coman- 
do de desvio condicional. 

Os sinais C2I e C2F fazem o mesmo com relação ao segundo comando 
de desvio condicional. 

Nesse exemplo, que é um pequeno programa, podemos verificar que o 
ciclo repetitivo constituído por DO WHILE... ENDDO permite atribuir 
valores a itens cuja quantidade 6 ilimitada enquanto o conteúdo da va- 
riável QQ for a letra maiúscula S, pois esta é a condição que mantém 
DO WHILE em ação neste caso. 

0 primeiro comando de desvio condicional tem a finalidade de con- 
trolar os valores em processamento, aceitando-os ou rejeitando-os. Se 
forem incluídos comandos adequados entre IF... ELSE... ENDIF, os valo- 
res aceitos poderão eventualmente ser atribuídos a variáveis ou a cam- 
pos de registro em uso ou processados com finalidades diversas. 

Poderão também ser incluídos entre IF... ELSE... ENDIF comandos 
para execução de outros módulos de programas não incluídos no laço de 
repetição DO WHILE... ENDDO. 

0 segundo comando de desvio condicional tem a finalidade de per- 
mitir ao usuário interromper o andamento do programa quando desejar.' 
Se digitar N quando o vídeo exibir a pergunta "Continua? (S/N)', fará 
com que seja válida a alternativa ELSE do comando e o caractere N será 
atribuído à variável QQ através do comando STORE. Em consequência, a 
condição expressa por DO WHILE deixa de ser verdadeira, cessando a sua 
ação, imediata e automaticamente. 
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Neste último exemplo os dois comandos IF... ELSE... ENDIF cons- 
tituem laços independentes, isto é, não encadeados ou "aninhados . 

*** Vários comandos IF... ELSE... ENDIF podem ser encadeados ou "ani- 
nhados" num mesmo ciclo repetitivo ou num programa. Exemplo: 

< comando ( s ) > 

IF <ia. condição) 

< comando < s ) > 

ELSE 

IF <2a. condi cão > 

< comando < s ) > 

ELSE 

IF <3a. condição) 

<co«ando(5) > 

ELSE 

<comando(s) > 

ENDIF 

ENDIF 

ENDIF 

<comando(s) > 

Nessa condição de uso. cada IF adicional deve ser precedido de um 
ELSE e para cada IF usado deve haver um ENDIF que lhe corresponda, sem 
o que o programa não funcionará perfeitamente. 

Além de IF... ELSE... ENDIF o dBASE possui outro comando de des- 
vio condicional, descrito a seguir: 

Comando DO CASE OTHERUISE ENDCASE 

*** Esse é outro comando composto do dBASE que possibilita, condicio- 
nalmente, a execução de comando(s), de programa ou de módulo de 
programa situados fora da sequência de comandos em que se encon- 
tra. Sua sintaxe é: 

DO CASE 

CASE <condicão> 
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< comando < s ) > 

CASE <condicão> 

< comando ( s > > 

OTHERUISE 

< comando ( s ) > 

ENDCASE 

A cláusula OTHERWISE é opcional no comando, enquanto que ENDCASE 
é obrigatória porque indica onde termina a ação de DO CASE. 

A condição expressa por qualquer CASE pode ser formulada com ca- 
racteres alfanuméricos ou variável alfanumérica e numero ou variável 
numérica, como ocorre com IF. 

Como vemos, a definição para CASE... OTHERWISE... ENDCASE é idên- 
tica à de IF... ELSE... ENDIF. 

Ambos são comandos de desvio condicional, com funções aparente- 
mente idênticas. Todavia, há uma diferença básica entre os dois coman- 
dos: DO CASE... OTHERWISE... ENDCASE não pode ser encadeado e permite 
a inclusão de qualquer quantidade de alternativas ou condições em sua 
composição, além da criada por OTHERWISE, enquanto que IF... ELSE... 
ENDIF... pode ser encadeado mas permite a inclusão de uma alternativa 
ou condição apenas por comando, além da criada por ELSE. 

A fim de que sejam percebidas claramente as diferenças entre am- 
bos os comandos, apresentaremos a seguir um módulo de programa elabo- 
rado com DO CASE... OTHERWISE... ENDCASE e, em seguida, o mesmo módulo 
elaborado com IF... ELSE — ENDIF. 

Módulo com DO CASE: 

SET TALK OFF 

ERASE 

INPUT "Digite um nQ entre i e 4 " TO A 
DO CASE 

CASE A = í 

? "PRIMEIRA ALTERNATIVA" 

CASE A - 2 
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? "SEGUNDA ALTERNATIVA' 

CASE A = 3 

? "TERCEIRA ALTERNATIVA' 

OTHERUISE 

? "ALTERNATIVA OTHERUISE" 

ENDCASE 
SET TALK ON 

Módulo com IF... ELSE... ENDIF: 

SET TALK OFF 
ERASE 

INPUT "Digite um n° entre 1 e 4 " TO A 
IF A = i 

? "PRIMEIRA ALTERNATIVA" 

ELSE 

IF A = 2 

? "SEGUNDA ALTERNATIVA" 

ELSE 

IF A = 3 

? "TERCEIRA ALTERNATIVA" 

ELSE 

? "ALTERNATIVA ELSE FINAL" 

ENDIF 

ENDIF 

ENDIF 

SET TALK ON 

Observar neste nódulo que, além da alternativa ELSE normal do co- 
mando principal, cada conando IF adicionai é precedido de ELSE, o que 
equivale a ter um ELSE no lugar de cada ENDIF se cada comando for in- 
cluído independentemente em vez de encadeado no módulo. 

Parece-nos fácil deduzir que é aconselhável usar DO CASE em vez 
de IF quando são diversas ou muitas as alternativas a incluir num mó 
dulo ou num programa; por outro lado, é necessário usar IF quando hou- 
ver conveniência ou necessidade de criar alternativas encadeadas. 

Outro ponto a reBsaltar é que, quando se tratar de oferecer o mí- 
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niao de alternativas que qualquer dos dois comandos permite, que são 
duas, recomenda-se o uso de IF, como pode ser deduzido através do exa- 
me dos dois exemploB que seguem: 

Exemplo com DO CASE: 

DO CASE 

CASE A > B 

? "A é na i ar do que B" 

OTHERUISE 

? "B é na i or ou igual a A" 

ENDCASE 

Exemplo com IF: 

IF A > B 

? "A é naior do que B" 

ELSE 

? "B é maior ou igual a A" 

ENDIF 

Finalizando as considerações sobre os comandos de desvio descri- 
tos, cumpre-nos observar que é praxe digitá-los nas linhas de progra- 
ma com encolunamento diferenciado, como nos exemplos reproduzidos, a 
fim de facilitar sua visibilidade para fins de análise e clareza, es- 
pecialmente quando houver diversos IFs encadeados no programa. 


7 . t - COMPLETANDO O MÓDULO 

DO MENU COM DUAS VERSÕES 


Em seguida vamoB completar o menu iniciado no capítulo anterior, 
já que, com os últimos comandos estudados, temos os conhecimentos ne- 
cessários para sua elaboração final. 

Usaremos as gravações já feitas dos módulos MENU e MENU 2. 

Com o dBASE ativado e estando alojado no "disk drive" corrente o 
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disquete que contém os arquivos dos dois mddulo3 citados, comandar: 

MODIFY COMrtAND MENU < RETURN > 

Estando o mddulo exibido no vídeo no modo de edição, deslocar com 
auxilio das teclas de controle o cursor para a quarta linha do pro- 
grama, onde se encontra o comando ERASE, e pressionar duas vezes si- 
multaneamente as teclas CONTROL e N a fim de inserir nesse local duas 
linhaB em branco, nas quais deverão ser digitados os comandos: 

STORE <d TO OP 
DO uihile: OP < > 7 

Em seguida deslocar o cursor para a primeira linha em branco após 
a Ultima linha de programa existente e digitar: 

S) 18,0 
INPUT TO OP 
IF OP * i 
DO OPC-i 

ELSE 

IF OP = 2 
DO OPC-2 
ELSE 

IF OP » 3 
DO OPC-3 
ELSE 

IF OP = 4 
DO OPC-4 
ELSE 

IF OP = 5 
DO OPC-5 
ELSE 

IF OP » 6 
DO OPC-6 
ELSE 

IF OP - 7 
SE! TALK ON 
ELSE 
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S) ÍB„Í2 S AY "Opcéío Inválida!" 

STORE 1 TO TIHE 
DO WHILE TIME <50 
STORE TIME+Í TO TIME 
ENDDO 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 

ENDDO 

Terminada e conferida a digitação, pressionar as teclas CONTROL e 
W simultaneamente para encerrar a edição do programa e gravá-lo no 
disquete automaticamente. 

Temos agora pronta uma das versões do programa gerador de menu. 

Deve ser observado que as opções 1 a 6 do menu se destinam a exe- 
cutar módulos do programa "CONTROLE DE ESTOQUE" que ainda não foram 
elaborados e que, portanto, não se encontram gravados no disquete, de 
modo que, se o módulo for executado e for escolhida uma dessas opções, 
será gerada uma mensagem de erro no vídeo, sendo também solicitada ao 
usuário uma resposta Y ou N (sim ou não) quanto a corrigi-lo ou não. 
Se tal situação ocorrer, isto é, se o módulo for testado antes mesmo 
de ter os outros módulos prontos, deverá o usuário responder N à refe- 
rida mensagem, a fio de não abortar a sua execução. 

De outro modo, o teste poderá ser feito sem esse problema se, em 
vez dos números 1 a 7, for digitado qualquer outro número, o que tor- 
nará válida a última cláusula ELSE do módulo, gerando no vídeo a men- 
sagem nela incluída, "Opção inválida!", durante alguns segundos, sem 
interromper a execução do módulo. 

Contudo, se o usuário desejar testar efetivamente todas as opções 
do menu, mesmo antes de ter prontos os módulos referentes às opções de 
número 1 a 6, poderá faze-lo do modo que descrevemos a seQuir: 
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- editar o mddulo (MODIFY COMMAND MENU <RETURN>) ; 

- digitar em lugar de cada comando DO OPC nÇ existente após cada 
IF OP - n2. o seguinte comando: ? "OPC nÇ"; 

- encerrar a edição (CONTROL+W) ; 

- executar o mddulo (DO MENU <RETURN» ; 

- efetuar os testes desejados; 

- editar novamente o mddulo, devolvendo- lhe a forma definitiva. 

Como dissemos antes, a execução de u» menu sd deve ser interrom- 
pida por decisão do usuário, recurso esse que foi implementado em nos- 
so menu através dos comandos: 

STORE 0 TO OP 
DO WHILE OP < > 7 
ENDDO 

de sorte que, estando prontos todos os módulos do programa, sua execu- 
ção deverá ser sustada somente se o usuário escolher a opção mírnero 7, 
o que poderá ser constatado também através de teste no modo descrito 
linhas acima. 

Os Últimos comandos acrescentados no módulo em desenvolvimento já 
haviam 3ido descritos, comentados e exemplificados, de sorte que suas 
funções deverão ser compreendidas sem dif iculdades. 

0 único ponto que nos parece merecer uma ligeira explicação é o 
que se refere aos comandos da última cláusula ELSE do módulo. Como sa- 
bemos, estando o módulo em execução e não sendo escolhida nenhuma das 

opções nele disponíveis, isto é, sendo digitado um número que não es- 

teja compreendido entre 1 e 7, inclusive, tornar-se-á válida a última 
cláusula ELSE do mesmo, sendo executados os comandos a ela referentes. 

Sabemos que o primeiro deles é responsável pela exibição no vídeo da 

mensagem "Opção mválidaJ". Os outros quatro comandos constituem um 
"laço" de repetição DO WHILE... ENDDO cuja função é manter no video a 
mensagem durante o tempo suficiente para o usuário tomar conhecimento 
dela. Se forem suprimidos, a mensagem não chegará a ser percebida pelo 



usuário, poi3 o programa entra imediatamente em "looping", isto é, o 
fluxo de sua execução retorna ao seu início, por força do "laço" prin- 
cipal montado com DO WHILE... ENDDO, esvaziando a tela de vídeo e re- 
imprimindo na mesma o menu com tal rapidez <iue a mensagem mal poderá 
ser vista. 

Vamos agora completar a segunda versão do menu. Usando o módulo 
MENU2 gravado no disquete e aplicando a experiência já adquirida, va- 
mos acrescentar-lhe os comandos complementares, de modo que fique con- 
forme a listagem que segue: 

*** PROGRAMA "CONTROLE DE ESTOQUE" *** 

* MÓDULO MENU2 - GERADOR DO MENU DE OPCoES 

* 

SET TALK OFF 

ERASE 

STORE 0 TO OP 

DO UHILE OP < > / 

TEXT 


CONTROLE DE ESTOQUE 


t - ENTRADA DE PRODUTO NOVO 

2 - ENTRADA DE PRODUTO NSO NOVO 

3 - SAÍDA DE PRODUTO 

A - DEVOLUÇÃO DE PRODUTO 

5 - PESQUISA DE PRODUTO 

6 - EMI5S&0 DE LISTAGEM 

7 - ENCERRA 0 PROCESSAMENTO 

<<< Digite o numere da opção >>> 

ENDTEXT 
INPUT TO OP 
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DO CASE 

CASE OP * í 
DO OPC-Í 
CASE OP = 2 
DO OPC-2 
CASE OP = 3 
DO OPC-3 
CASE OP * A 
DO OPC-A 
CASE OP - 5 
DO OPC-5 
CASE OP = 6 
DO OPC-Ó 
CASE OP = 7 
SET TALK ON 
OTHEKUISE 

a í 8 , 12 SAY "Opção Inválida!" 

ST ORE 1 TO TIME 
DO WHILE TIME <50 
ST ORE TIME+1 TO T IMEü 
ENDDO 
ENOCASE 

ENDDO 

Depois de terminada, esta segunda versão do módulo de menu poderá 
ser testada nas mesmas condições descritas para a primeira versáo. To- 
das as observações feitas para aquela são válidas para esta. 

As duas versões agora disponíveis darão ao usuário a oportunidade 
de analisar dois modos diferentes de programação de um mesmo módulo, 
permitindo-lhe ampliar seus conhecimentos sobre o assunto. 

Tendo concluído o módulo MENU, podemos elaborar os demais móduloB 
do programa "CONTROLE DE ESTOQUE". O MENU funcionará como SUPERVISOR 
ou CONDUTOR (DRIVER) dos mesmos e servirá como guia ou roteiro na sua 
elaboração. Antes de os iniciarmos, porém, devemos tecer algumas con- 
siderações sobre OS tópicos MENSAGENS EXIBIDAS NO VÍDEO e RETORNO E 
CANCELAMENTO EM EXECUÇÃO DE PROGRAMA, o que será feito nos dois breves 
capítulos seguintes. 
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MENSAGENS PROGRAMADAS 


Mensagens de advertência, de auxílio ou de orientação ao usuário 
são muito usadas em programação en geral e em d BASE . Podemos dizer que 
elas são parte integrante da programação. Um programa sem tais mensa- 
gens pode exigir muita "adivinhação" ou prática por parte do usuário 
em certas fases de sua execução, ou então obrigá-lo a fazer frequentes 
consultas ã sua documentação, se ela existir. Não devemos confundir 
estas mensagens com as que são próprias do sistema e descritas no item 
7.11 do primeiro volume deste Curso. 

Quando a execução de um programa é interrompida para entrada de 
dados via teclado, por exemplo, é importante que o operador saiba ime- 
diatamente o que está ocorrendo e o que deve fazer, sem precisar adi- 
vinhar. Desse modo, a execução de tarefas para a qual o programa foi 
elaborado é cumprida com maior rapidez e exige menos esforço do usuá- 
rio. Portanto, um programa nessas condições é mais eficiente. 

Basicamente, existem dois critérios para programar mensagens para 
exibição na tela de vídeo: 

lo - a mensagem deve permanecer exibida até que o usuário pres- 
sione uma tecla especificada ou digite um dado solicitado; 

2 ç - a mensagem deve ser exibida na tela de vídeo durante um tem- 
po determinado e desaparecer sem interferência do usuário. 
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Quando a mensagem se enquadra no primeiro critério, dizemos que é 
"mensagem com tempo de exibição dependente". A mensagem que se enqua- 
dra no segundo critério é designada como "mensagem com tempo de exi- 
bição limitado". 


8-1 - MENSAGEM COM TEMPO 

DE EXIBICSO DEPENDENTE 


Neste caso, geralmente a mensagem tem a finalidade de solicitar a 
escolha de uma opção de processamento ou uma entrada de dados e o tem- 
po de sua exibição está relacionado com a espera ocasionada por um doa 
comandos ACCEPT ou INPUT, usados para criação, introdução e atribuição 
de variáveis de memória. 

No caso de escolha de opções, qualquer dos comandos citados pode 
ser usado, dependendo apenas de harmonizá-lo no conjunto, isto é, se a 
eBcolha de opções for feita através de letra, deverá ser usado ACCEPT; 
se a escolha for feita por meio de nümero, deverá ser usado INPUT. Ou- 
tros comandos como SAY, ? e REMARK podem ser usados para a mesma fina- 
lidade, embora ACCEPT e INPUT sejam preferíveis em razão de sua ação 
ser mais abrangente, já que permitem introduzir mensagens ou comentá- 
rios ao mesmo tempo que criam e introduzem variáveis relacionadas com 
os mesmos, para receber atribuições. Exemplos; 

ACCEPT "Digite a letra da opção" TO REP 

INPUT "Digite o numero da opção" TO REP 

Com os comandos SAY , ? e REMARK, comandos equivalentes seriam os 
exemplificados a seguir; 

9 5,10 SAY "Digite a letra da opção" 

ACCEPT TO REP 

? "Digite o número da opção" 

INPUT TO REP 

REMARK Digite a opção 
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ACCEPT ou INPUT TO REP 


No caso de entrada de dados, a escolha do comando a ser utilizado 
deve ater-se ã classificação do dado. Exemplos: 

INPUT "Digite a quantidade" TO QT 
ACCEPT "Digite o nome" TO Nrt 

Devemos lembrar, ainda, que: 

- INPUT aceita dados numéricos quando ob meamos são representados 
unicamente por números e digitados sem aspas. Neste caso, a va- 
riável criada por INPUT é classificada automaticamente como nu- 
mérica e tratada como tal pelo sistema. 

- INPUT aceita dados alfanuméricos quando estes são representados 
por quaisquer caracteres, inclusive números, e digitados entre 
aspas simples ou duplas. Neste caso a variável criada por INPUT 
é classificada automaticamente pelo d BASE como alfanumérica. 

- ACCEPT aceita apenas dados alfanuméricos, representados por ca- 
racteres quaisquer, inclusive os que representam números, de- 
vendo os mesmos ser digitados cem aspas. Se forem digitados com 
aspas, eBtas serão incluídas como partes integrantes dos dados. 
A variável criada por ACCEPT é invariavelmente alfanumérica. 

0 estudo completo das variáveis de memória do dBASE II foi teito 
no Capítulo 22 do primeiro volume deste Curso. 

Há casos em que é conveniente usar ACCEPT em vez de INPUT e pro- 
cessar o valor correspondente através da função VAL. Exemplo: 

ACCEPT "Oigite a quantidade" TO NÔT 
STORE VAL(MQT) TO QT 

Tal recurso evita causar interrupção subsequente na execução do 
programa quando, em vez de digitar um número ou valor, o usuário pres- 
sionar apenas a tecla RETURN , pretendendo significar nenhum valor ou 
quantidade nula ou zero. Em tal caso, se for usada a instrução INPUT e 
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for pressionada a tecla RETURN, será gerada no vídeo a mensagem: 

Erro de sintaxe, redigitar. 

0 dBASE dispõe ainda de outro comando que pode ser usado na emis- 
são de mensagens programadas com tempo de exibição dependente. Trata- 
se de um "comando de espera" específico, introduzido a seguir: 


Comando WAIT 

*** WAIT interrompe o processamento de um programa até que qualquer 

tecla seja pressionada. Sua sintaxe é: 

WAIT CTO (nome de var i ável >] 

A variável que pode ser criada opcional mente por WAIT é alfanumé- 
rica, isto é, de caracteres, sendo tratada como tal pelo dBASE. 

Ao ser executado, WAIT emite no vídeo a seguinte mensagem: 
Esperando. 

Assim, ao empregar WAIT para emissão de mensagem programada, esta 
deve preceder a sua execução através de um dos comandos SAY, ? ou RE- 
MARK, devendo ser considerado que, invariavelmente, a sua própria men- 
sagem "Esperando." também será exibida na tela de vídeo. 

Se a opção [TO <nome de variável>] for incluída no comando, o que 
for digitado após a sua execução será atribuído à variável criada. 

Em idêntica situaçáo, se a tecla RETURN for pressionada, nenhuma 
atribuição será feita ã variável criada. 

Em igualdade com os comandos ACCEPT e INPUT, pressionando a tecla 
ESC após a execução de WAIT, enquanto o sistema estiver "em espera", a 
execução do programa será cancelada. 
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8.2 


MENSAGEM COM TEMPO 


DE EXIBIÇÃO DETERMINADO 


Quando a mensagem a Ber exibida no vídeo não depender de digita- 
ção de qualquer tecla ou de dados para cessar, ela deve ser gerada por 
intermédio de um dos comandos SAY, ? ou REMARK e mantida no vídeo du- 
rante o tempo desejado através do comando composto DO WHILE... ENDDO 
controlado por uma variável contadora. Exemplo: 


a 10,10 SAY "Mensagem" 
STORE 1 TO CONT 
DO UHILE CONT <50 
STORE CONT+1 TO CONT 
ENDDO 


0 tempo de exibição no vídeo é determinado através do comando: 

DO UHILE CONT <50 

Aumentando ou diminuindo o valor expresso no comando, a mensagem 
será mantida no vídeo durante mais ou menos tempo. 

Os módulos já elaborados MENU e MENU2 utilizam as duas modalida- 
des de mensagens descritas. 

Nos móduloB que elaboraremos para completar o programa CONTROLE 
DE ESTOQUE usaremos tanto quanto possível os recursos propiciados pela 
inclusão de comentários ou mensagens, de modo a otimizar sua execução 
e facilidade de operação. 
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9.1 - RETORNO EM EXECUCSO DE PROGRAMA 

Na elaboração dos módulos MENU e MENU2 tivemos oportunidade de 
aprender que os comandos compostos DO WHILE... ENDDO, IF... ELSE... 
ENDIF e DO CASE... OTHERWISE. . . ENDCASE permitem a inclusão de outros 
comandos em seu circuito, inclusive o comando DO, que executa programa 
ou módulo de programa Bituado fora da sequência de execução em que se 
encontra. 

Na maioria dos casos dessa ordem, isto é, quando o comando DO é 
utilizado para executar um programa ou módulo situado fora do seu blo- 
co. o fluxo de execução é desviado para aquele programa ou módulo ex- 
terno e, depois de efetuado o processamento previsto, deve retornar ao 
comando imediatamente seguinte ao que o desviou, isto é, ao primeiro 
comando situado após o comando DO recém-executado. 

As opções normalmente programadas num MENU como o que elaboramos 
refletem situações como a que acabamos de descrever, isto é, cada co- 
mando IF ou cada CASE existente no mesmo, com exceção do de encerra- 
mento, inclui em seu circuito um comando DO cuja finalidade é pôr em 
execução um módulo do programa "CONTROLE DE ESTOQUE" para que efetue 
o processamento de dados para o qual foi elaborado. Como veremos logo 
mais, cada módulo desse programa será constituído por um bloco ou con- 
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junto de comandos separado estruturalmente do MENU mas ligado funcio- 
nalmente a ele. l9to significa que a execução de qualquer dos módulos 
será feita através do MENU, após o que o controle do fluxo de execução 
do programa deverá retornar a ele. 

(Se lembrarmos que a finalidade precípua de um menu de opções de 
programa é facilitar sua operação, compreenderemos por que o controle 
do fluxo de execução deve sempre retornar a ele após o processamento 
de cada módulo. Senão vejamos: qualquer sistema de controle de esto- 
que, por exemplo, deve incluir no mínimo recursos para efetuar ENTRA- 
DA, SAÍDA e ATUALIZAÇÃO de dados. Imagine agora o leitor a dificuldade 
operacional que apresentaria um programa elaborado para essa finalida- 
de sem um MENU para funcionar como SUPERVISOR ou CONDUTOR (DRIVER)!) 

Para que o controle do programa retorne ao MENU após a execução 
de um módulo supervisionado por ele. deve ser incluído no módulo o co- 
mando de retorno descrito a seguir: 

Comanda RETURN 

*** RETURN retorna o fluxo de execução de um programa para o comando 
situado imediatamente após o comando DO que o desviou. Sua sinta- 
xe é o próprio comando: 

RETURN 

Se um comando RETURN for incluído num módulo ou programa sem um 
comando DO precedente, exi3tente no mesmo módulo ou noutro, ele inter- 
rompe o fluxo de execução onde se encontra, retornando o controle do 
sistema ao modo interativo do dBASE. Em outras palavras, um RETURN sei 
DO correspondente provoca o cancelamento na execução de um módulo ou 
programa. 

ATENCAO ! 

Ao ser executado nessa condição, RETURN não fecha arquivos aber- 
tos, podendo provocar sua perda parcial ou total, se não forem fecha- 
dos por um comando subsequente apropriado antes de o microcomputador 
ser desligado. Por es3a razão recomenda-se usar RETURN somente em cor - 
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respondênciã com o comando DO. 


Do exposto, deduz-se que HETURN deve ser usado apenas para retor- 
nar o fluxo de execução de um programa à sua origem - u* menu de op- 
ções, por exemplo - após ter sido executado outro módulo ou conjunto 
de comandos. 

Para provocar simplesmente o cancelamento de execução de programa 
ou de módulo de programa, deve ser usado o comando descrito a seguir. 


9.2 - CANCELAMENTO DE EXECUCSO DE PROGRAMA 

Dependendo da finalidade de um módulo ou programa, pode ser con- 
veniente provocar simplesmente o cancelamento de sua execução após de- 
terminado processamento. Tal recurso é propiciado pelo comando descri- 
to a seguir: 


Comanda CANCEL 

*** CANCEL cancela a execução de um módulo ou programa, retornando o 
controle do sistema ao modo interativo do d BASE. Sua sintaxe é o 
próprio comando, apenas: 

CANCEL 

Ao ser executado, CANCEL também não fecha arquivos abertos, de- 
vendo ser tomadas precauções adequadas contra sua perda parcial ou to- 
tal, gerando o seu fechamento por comando subsequente apropriado antes 
de o microcomputador ser desligado. 


9.3 - CANCELAMENTO DE EXECUC30 

ATRAVÉS DE DO WHILE... ENDDO 

Outra maneira de provocar o cancelamento de execução de um módulo 
ou programa é através do comando composto DO WHILE... ENDDO. 
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Como sabemos, tal comando possibilita repetir a execução de co- 
mando (s), de programa ou módulo de programa enquanto uma condição ex- 
pressa por ele for verdadeira. 

Assim , quando a execução do módulo ou programa for controlada pe- 
lo comando DO WHILE... ENDDO, é suficiente alterar apenas o fato que 
condiciona a expressão como verdadeira para que seja imediatamente 
cancelada 3ua execução. 

Exemplo da utilização desse recurso é encontrado nos módulos MENU 
e MENU2, na opção nümero 7, cujo objetivo é provocar o cancelamento da 
execução do programa. Podemos notar nesse exemplo que é o comando DO 
WHILE... ENDDO que mantém o módulo em execução e que o que condiciona 
a expressão enunciada por ele como verdadeira é o fato de o conteüdo 
da variável OP ser diferente de 7. Assim, ao ser digitado pelo usuário 
o nümero 7 como escolha das opçóes do menu, esse nümero é atribuído á 
variável OP automaticamente através do comando INPUT inserido antes da 
série de comandos IF ou CASE, aiterando consequentemente aquele fato e 
provocando o cancelamento da execução do módulo. 
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03 comandos do d BASE II PLUS estudados até esta parte de nosso 
Curso já nos permitem concluir a elaboração de ura programa-protótipo 
"CONTROLE DE ESTOQUE", o qual, cora ligeiras adaptações para aplicações 
específicas, poderá ser utilizado na prática sem qualquer dificuldade 
e cora bom desempenho. 

Dada sua finalidade didática, todavia, cumpre-nos observar que o 
programa foi elaborado tendo em vista caracterizá-lo com o máximo pos- 
sível de clareza e concisão, a fim de tornar fácil o seu entendimento. 
Isto significa que nào foram incluídos no mesmo certos recursos sofis- 
ticados que otimizariam o seu desempenho mas que complicariam a sua 
estruturação geral, dificultando 3ua compreensão e eliminando a fa- 
cilidade que deve apresentar para "arranjos" ou adaptações por parte 
de usuários iniciantes na matéria, a quem concitamos tal prática, que 
aprimora o aprendizado. 

Por outro lado, não seria concebível deixar de descrever e exem- 
plificar em nosso Curso os recursos mais elaborados ou sofisticados do 
dBASE , com os quais pode contar o programador, mesmo iniciante, para 
apnmoração dos seus conhecimentos, de sorte que tais recursos serão 
apresentados e exemplificados depois da elaboração completa do progra- 
ma "CONTROLE DE ESTOQUE", guando então o seguidor aplicado deste Curso 
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estará mais apto a assimilá-los. Jimtamente com tais recursos serio 
descritos e estudados os mais recentes comandos implementados no dBASE 
II, que são os comandos da série PLUS. 

Outra questão gue convém introduzir neste ponto é a que diz res- 
peito a FLUXOG RAMAS. 


10. i - O USO OE FLUXOGRAMAS Eh PROGRAMAÇÃO 

Os fluxogramas, também denominados diagramas de blocos, são con- 
siderados indispensáveis por alguns programadores para esquematizar 
graficamente a sequência de execução de um programa, de modo a consti- 
tuir a base do mesmo. 

Parece-nos não haver düvidas de que, em muitoB casos, o raciocí- 
nio para estabelecer o fluxo de operações de forma lógica, fluente e 
concisa pode ser facilitado pelo uso de fluxogramas. 

Todavia, dado o fato de que os fluxogramas lidam quase que exclu- 
sivamente com o fluxo de controle dos programas, não permitindo deta- 
lhar as operaçõeB do processamento propriamente dito dos dados envol- 
vidos e do seu fluxo, parece-nos também que a grande maioria dos pro- 
gramadores os evita atualmente, considerando-os de pouca valia e ver- 
dadeiramente "muito chatos". 

Por outro lado, depois do advento de linguagens flexíveis como o 
BASIC, de grande alcance e de extrema inteligibilidade e muita seme- 
lhança com o linguajar humano, e de linguagens de programação mais es- 
pecíficas como a do dBASE, a programação de microcomputadores tornou- 
se muito mai3 fácil e simples, permitindo que problemas bastante com- 
plexos sejam equacionados e programados sem grandes dificuldades e, na 
maioria dos casos, apenas com auxílio de um roteiro preestabelecido. 

Por essas e outras razões, e a critério do programador, os fluxo- 
gramas devem ou não constituir elementos básicos ou de simples apoio 
ao elaborar os seus programas. Mas não podem e não devem ser conside- 
rados, por convenção, como elementos básicos da programação de micro- 
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computadores nem como guias absolutos ou indispensáveis em sua elabo- 
ração. Mesmo porque quem não possui muita habilidade para desenhar po- 
derá acabar crendo que nunca aprenderá a elaborar programas para com- 
putadores, como se pode deduzir ao examinar a quantidade e diversidade 
de símbolos existentes para elaboração de fluxogramas. 

Concluindo, diremos que a utilização de fluxogramas deve depender 
do grau de auxílio que podem prestar ao programador em face da comple- 
xidade dos programas que deve elaborar. 

Com relação aos módulos que comporão nosso programa "CONTROLE DE 
ESTOQUE", eles 3erão elaborados sem sustentação em fluxogramas, em ra- 
zão de estarmos adotando a modalidade TOP DOWN de programação estru- 
turada, comentada no item 3.2 e detalhada no Capítulo 14. Tal modali- 
dade facilita sobremaneira a elaboração de programas, permitindo que 
qualquer deles seja elaborado praticamente sem o uso de fluxogramas. 

Assim sendo, as listagens dos comandos que compõem os módulos do 
nosso programa "CONTROLE DE ESTOQUE" serão introduzidas sem tais ele- 
mentos que, todavia, foram elaborados por razões didáticas e se encon- 
tram reunidos no item 10.8, para consulta ou estudo. 

10.2 - ELABORAÇÃO DO MÓDULO 

OPC-i - ENTRADA DE PRODUTO NOVO 


Podemos agora elaborar os outros módulos que comporão o programa 
"CONTROLE DE ESTOQUE". 

Como afirmamos antes, o próprio MENU servirá de roteiro para essa 
tarefa, de sorte que o primeiro dos módulos a elaborar é o OPC-1, cor- 
respondente ao item 1 - ENTRADA DE PRODUTO NOVO. 

Qualquer módulo criado para essa finalidade em um sistema de con- 
trole de estoque é baseado no arquivo de dados (.DBF) em que são arma- 
zenados os dados correspondentes aos itens ou produtos controlados por 
ele. Em verdade, todo o programa do sistema é baseado era tal arquivo, 
sendo este, via de regra, planificado e criado em primeiro lugar a fio 
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de que 3 ua 3 características sejam conhecidas e adequadamente conside- 
radas na elaboração do programa gerenciador, de modo que seu conteúdo 
possa ser devidamente tratado. 

Nosso "CONTROLE DE ESTOQUE" será baseado no arquivo CTRLSTOQ . DBF 
criado no Capitulo 14 do primeiro volume deste Curso, já que o mesmo, 
tendo sido usado no MODO INTERATIVO para a mesma finalidade, servirá 
também no MODO PROGRAMÁVEL, possibilitando a formulação de comparações 
valiosas no aprendizado geral do dBASE. 


Estando o dBASE ativado no microcomputador, acionar o editor de 
programas próprio do mesmo, comandando: 

MODIFY COhMAND OPC-1 < RETURN > 

e, fazendo uso dos seus recursos, já estudados, digitar a listagem que 
segue: 


»«* PROGRAMA "CONTROLE DE ESTOQUE" *** 

* MÓDULO OPC-1 - ENTRADA DE PRODUTO NOVO 
x- 

SET TALK OFF 
ER ASE 

USE CTRLSIOQ 

ST ORE " " TO OPt 

DO WHILE !<0P1> O "N" 

AP PE ND « LAN lí 
SET CONE I R M ON 

Si 1,10 SAY "ENTRADA DE PRODUTO NOVO" 
d) 2,10 SAY 

n) 4,12 SAY "Código " GET CODIGO 

ffl 6,0 SAY "Denominação " GET DENOM 
u) £},0 SAY "Departamento " GET DEP 
d) V , 0 SAY "Estoque mínimo " GET QT MIN 

o) 10,0 SAY "Quantidade " GET QTAT 

0 11,0 SAY "Preço de custo " GET PRC PICTURE 
<i) 12,0 SAY "Preco de venda " GET PRV PICTURE 
READ 
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5) 13,0 

REP LACE VALC WITH Q 1 A T * PRC 
REPLACE VALV WITH Q J AT * PRV 
7 

ACCEPT "Outra entrada? ( < RETURN >=SIM . <N>-N£0>" TO OPi 

ER ASE 

ENDDO 

RELEASE ALL EXCEPT OP 
USE 

RETURN 


Terminada e conferida a digitação, pressionar as teclas CONTROL e 
w simultaneamente, a fim de encerrar a edição do módulo e acionar sua 
gravação automática no disquete. 

Teceremos em seguida alguns comentários sobre esse módulo, a fim 
de facilitar a sua compreensão; 

- O módulo OPC-1 será executado automaticamente sempre que a op- 
ção número 1 do MENU for escolhida pelo usuário. 

- Ao ser executado, o módulo coloca automaticamente em uso o ar- 
quivo CTRLSTOQ . DBF , o qual armazenará a entrada de dados que será 
feita por 3eu intermédio, via digitação. Como já comentamos, tal 
arquivo foi criado no primeiro volume de nosso Curso e deverá es- 
tar presente no mesmo disquete em que serão gravados todos os mó- 
dulos do programa "CONTROLE DE ESTOQUE". 0 arquivo CTRLSTOQ será 
a sua base ou sede de dados. 

- 0 laço constituído por DO WHILE ! (OPl) O "N" permite que sejam 
digitadas entradas de dados para novos registros até que o usuá- 
rio responda N (- não) em resposta à pergunta "Outra entrada?" 
exibida ao término da digitação de dados para cada novo produto. 

- A forma adotada para a variável OPl no comando DO WHILE ! (OPl) 
<> "N" tem a função de converter em caractere maiusculo a respos- 
ta atribuída ã variável ao fim de cada ciclo, caso seja ela digi- 
tada em letra minúscula, o que manteria indevidamente como verda- 
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de ira a condição expressa no comando. 

- o comando APPEND BLANK adiciona ao arquivo a cada ciclo do laço 
um regi 3 tro em branco, isto é, um novo registro, para que a en- 
trada de dados promovida pelo módulo seja destinada a ele através 
dos comandos GET e READ. 

- Os comandos para entrada de dados para os campos CODIGO, DENOM, 
DEP, QTMIN e QTAT não incluem a cláusula PICTURE para sua forma- 
tação porque seus tamanhos são indicados automaticamente através 
de sinais : (dois pontos) e correspondem exatamente com a estru- 
tura do registro. 

- Os comandos para entrada de dados para os campos PRC e PRV in- 
cluem a cláusula PICTURE para indicar ao usuário a possibilidade 
de digitar os mesmos também com valores decimais. 

- Através do comando REPLACE são elaborados automaticamente os 
dados para os campos VALC e VALV, com base nos dados digitados 
para os campos QTAT, PRC e PRV. 

- 0 comando RELEASE libera ou apaga quaisquer variáveis de memó- 
ria usadas durante a execução do módulo, com exceção da variável 
OP, cujo conteúdo diferente de 7 mantém ativo o módulo MENU. 

- Através do comando RETURN o controle do programa retorna ao 
MENU ao ser encerrado o processamento do módulo OPC-1. 

- Este módulo pode ser testado independentemente do módulo MENU, 
bastando comandar: 

DO OPC-i < RETURN > 

sendo necessário apenas que o arquivo CTRLSTOQ esteja presente no 
mesmo disquete. 
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ifc.3 - ELABORACSO DO MÓDULO 

OPC-2 - ENTRADA DE PRODUTO NÃO NOVO 

Estando o dBASE ativado no microcomputador, acionar o editor de 
programas do mesmo, comandando: 

MODIFY COhMAND OPC-2 <RETURN> 

e, fazendo uso dos seus recursos, digitar a listagem que segue: 


««« PROGRAMA "CONTROLE DE ESTOQUE" *** 

« módulo opc-2 - entrada de produto nso novo 

* 

SET TAL.K OFF 
ER ase: 

USE CTRLBTOQ 

ST ORE " " TO OPS2 

DO WHILE K0P2) <> "N" 

ü) 2,5 SAY "ENTRADA DE PRODUTO N«0 NOVO" 

íil 5 S A Y ^ aa aa sa as ® *5 se =s asts: ® ar aa wj m: a* «s a= a ac os ao flaa» w w ias ^ 

IO 5,0 SAY "Digite o código ou <RETURN> p/encerrar.' 

a ) 6, <6 

ACCEPT TO MCOO 
IF MCOD « " " 

USE 

RELEASE ALL EXCEPT OP 

RETURN 

ENDIF 

LOCATE FOR CODIGO - « <MCOD) 

IF r EOF 

ü) 9,8 SAY "Código não encontrado!" 

? 

ACCEPT " Presa I one < RETURN > para continuar." TO QQ 
RELEASE MCOD 
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ER ASE 
L.OOP 
ENDIF 
ER ASE 

5) 2,10 S AY "Entrada do produtos"' 
ffl 5,5 SAY "Código " GET CODIGO 
a) 7,5 SAY "Produto " GET DENOM 
ffl 9,5 SAY "Departamento " GET DEP 
ii) 10,5 SAY "Estoque atual " GET QTAT 
5) 11,5 SAY "Estoque mínimo " GET QTMIN 
5) 12,5 SAY "Preco de custo " GET PRC 

3 13,5 SAY "Preco de venda " GET PRV 

CLEAR GETS 

í\) 16,5 SAY "Digite os dados de entrada:" 

STORE 0 TO MQTA! ,MPRC,MPRV 

5) 10,0 SAY "Quantidade " GET MQTAT PICTURE "MMttHtt" 
a 19,0 SAY "Preco de custo " GET MPRC PICTURE 

a 20,0 SAY "Preco de venda " GET MPRV PICTURE "HttMttH.ttW" 

READ 

REPLACE QTAT WITH QTAT+MQTAT 
REPLACE PRC W I TH MPRC 
REPLACE PRV WITH MPRV 
REPLACE VALC WITH QTAT * PRC 
REPLACE VALO WITH QTAT * PRV 

ACCEPT "Outra entrada? < < RET URN > *SIM , <N>=NS0>" TO 0P2 

ER ASE 

ENDDO 

RELEASE ALL EXCEPT OP 
USE 

RETURN 

Terminada e conferida a digitação, pressionar as teclas CONTROL e 
W simultaneamente para encerrar a edição do módulo e acionar automati- 
camente a sua gravação no disquete. 

COMENTÁRIOS SOBRE 0 MÓDULO OPC-2: 

- 0 módulo 0PC-2 será executado automaticamente sempre que a op- 
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ção número 2 do MENU for escolhida pelo usuário. 


- Ao ser acionado, o módulo coloca automaticamente e» uso o ar- 
quivo CTRLSTOQ.DBF e solicita ao usuário que digite o código do 
produto cujo registro deverá ser atualizado. 

- 0 laço constituído por DO WHILE I (0P2) <> "N" mantém o módulo 
em execução até que o usuário digite N (ou n) em resposta à per- 
gunta "Outra entrada?" exibida no vídeo ao fim da digitação de 
dados para cada registro. 

- 0 registro ou "ficha eletrOmca" do item que deverá receber os 
novos dados é "buscado" no arquivo CTRLSTOQ pelo comando LOCATE 
quando o seu código é digitado pelo usuário após ser exibida no 
vídeo a mensagem "Digite o código...". Se tal regiBtro não exis- 
tir no arquivo, a ocorrência será comunicada também através de 
mensagem exibida no vídeo. Nesse caso, a entrada de dados deverá 
ser feita como produto novo, através da opção número 1 do MENU. 

- Da mesma forma que ocorre com a variável OP, a variável MCOD é 
usada aqui com a função ! (função "letras maiúsculas", estudada 
no primeiro volume deste Curso), a fim de que a busca feita pelo 
comando LOCATE não redunde infrutífera quando o código for repre- 
sentado por letras maiúsculas, como costuma ser, e o código para 
pesquisa for digitado com letras minúsculas. Os códigos do arqui- 
vo CTRLSTOQ estão representados por caracteres numéricos (não nú- 
meros dígitos]), já que os campos que os contêm 3ão alfanuméricos 
ou de caracteres, de forma que tal problema não ocorre nesse ca- 
so, pois esses caracteres só têm um formato. A função será válida 
se forem usadas letras em vez de caracteres numéricos. 

- Os dadoB dos campos do registro em processamento, com exceção 
dos campos VALC e VALV, são exibidos no vídeo através do comando 
GET, para controle do usuário. Neste caso também não é utilizada 
a cláusula PICTURE porque, além de os dados serem exibidos exata- 
mente como estão armazenados nos respectivos campos, o uso de GET 
é feito para saída (exibição) de dados e não para entrada, quando 
então aquela cláusula tem grande serventia. 



- Os novos dados solicitados através do comando £ x.y SAY e GET e 
digitados através do conando READ são processados e locados nos 
respectivos canpos através do conando REPLACE. Os canpos VALC e 
VALV são tambén atualizados, autonaticanente , em função dos novos 
dados digitados. 

- Os comandos finais deste módulo são idênticos aos do módulo an- 
terior e já foram comentados. 

- Igualmente ao módulo OPC-1, este também poderá ser testado in- 
dependentemente do MENU, bastando comandar: 

DO OPC-2 < RETURN > 

sendo necessária a presença do arquivo CTRLSTOQ . DBF no disquete. 


Í0.A - ELABORAÇÃO DO MÓDULO 

OPC— 3 - SAÍDA DE PRODUTO 


Com o d BASE ativo no microcomputador, comandar: 

MODIFY COMMAND OPC-3 < RETURN > 

a fim de acionar o seu editor de programas. Em seguida, digitar a lis 
tagem que segue: 


*** PROGRAMA "CONTROLE DE ESTOOUE" *** 

* módulo opc-3 - saída de produto 

* 

SET TALK OFF 
ER ASE 

USE CTRLSTOQ 

STORE " " TO 0P3 

DO WHILE ! < OP 3 ) <> "N" 

D 2,11 SAY "SAÍDA DE PRODUTO" 

S) 3, li SAY 
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a 5,0 SAY "Digite o código ou < RETURN > p/encerrar." 

8 6 r <ò 

ACCEPT TO MCOD 
IF hCOD = " " 

USE 

RELEASE ALL EXCEPT OP 
RETURN 

endif 

LOCATE FOR CODIGO * !<MCOD> 

IF EOF .. 

«D 9,8 SAY "Código não encontrado!" 

? 

ACCEPT " Pressione <RETURN> para continuar." TO QQ 
RELEASE hCOD 
ERASE 
1.00P 
ENDIF 
ERASE 

8 2,11 SAY "Saída do produtos" 

3 5,5 SAY "Código " GET CODIGO 
8 7,5 SAY "Produto " GET DENOM 
«) 9,5 SAY "Departamento " GET DEP 
o) 10,5 SAY "Estoque atual" GET GTAT 

8 i t , 5 say "Estoque mínimo " GET QTM1N 

8 12,5 SAY "Preço de custo " GET PRC. 

a 13,5 SAY "Preço de venda " GET PRU 

CLEAR GETS 

? 

7 

INPUT " Digite. a quantidade saída " TO MQTAT 

REPLACE QT AT UITH OTAT-hQTAT 
REPLACE VALC WITH QTAT * PRC 
REPLACE 'JALO UITH OT AT # PRU 

7 

ACCEPT "Outra saída? << RETURN >=SIM , <N>*NS0>" TO 0P3 

ERASE 

ENDDO 

RELEASE ALL EXCEPT OP 
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USE 

R ET UR N 


Terminada e conferida a digitação, pressionar as teclas CONTROL e 
W simultaneamente para encerrar a edição do módulo e causar a sua gra- 
vação automática no disquete. 

COMENTÁRIOS SOBRE 0 MODULO OPC-3: 

De modo geral, aplicam-se a este módulo os comentários já tecidos 
sobre o módulo OPC-2. A diferença básica entre este e o anterior é que 
o OPC-3 solicita e processa dados para a modalidade de saída de produ- 
to, enquanto que o OPC-2 o faz para a modalidade de entrada, requeren- 
do a mais os dados de preço de custo e de venda. 


10.5 - ELABORAÇÃO DO MÓDULO 

OPC-4 - DEVOLUÇÃO DE PRODUTO 


Estando o d BASE ativo no microcomputador, comandar: 

MOOIFY COMHANO OPC-4 < RETURN > 

Em seguida, fazendo uso dos recursos do editor de programas já 
ativado, digitar a listagem que segue: 


*** programa "controle de estoque" *** 

* MÓDULO OPC-4 - DEVOLUÇÃO DE PRODUTO 

* 

SET TALK OFF 
ER ASE 

USE CTRLST 00 

STORE " " TO 0P4 

STORE " " TO MED 

DO WHILE !(0P4> <> "N" 

ô) 2,9 SAY "DEVOLUÇÃO DE PRODUTO" 
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// 


a 3,9 SAY " = = = = = = = i=a;=5=3r!3!s==:=;s= = = = '' / 

«) 5,0 SAY Digite o código ou <RETURN> p/encerrar. 

? 

ACCEPT TO MCOD 
IF MCOD * " " 

USE 

RELEASE ALL EXCEPT OP 
RETURN 
ENDIF 

LOCATE FOR CODIGO = !<MCOD) 

IF EOF 

5) 9,8 SAY "Código não encontrado?'"' 

? 

ACCEPT " Pressione < RETURN > para continuar." TO QQ 
RELEASE MCOD 
ER ASE 
LOOP 
ENDIF 
ER ASE 

<D 2,9 SAY "Produto devolvido!" 
a 5,5 SAY "Código " GET CODIGO 
a 7,5 SAY "Produto " GET DENOM 
3 9.5 SAY "Departamento " GET DEP 
3 Í0,5 SAY "Estoque atual " GET QTAT 

a lí, 5 SAY "Estoque mínimo " GET QTMIN 

a 12,5 SAY "Preco de custo " GET PRC 

3 13,5 SAY "Preco de venda " GET PRU 

CLEAR GETS 
? 

? 

INPUT " Quantidade devolvida " TO MQTAT 

REPLACE QTAT UITH QTAT + MQTAT 
REPLACE YALC UITH QTAT * PRC 
REPLACE OALU UITH QTAT * PRU 

o 

'? 

ACCEP r "Mais devolução? << RETURN >«SIM , <N>»N£0)" TO 0P4 

ERASE 

ENDDO 
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RELEASE ALL EXCEPT OP 

USE 

RETURN 


Terminada e conferida a digitação, pressionar simultaneamente as 
teclas CONTROL e W para encerrar a edição do módulo e causar a grava- 
ção automática do mesmo no disquete. 

COMENTÁRIOS SOBRE 0 MODULO OPC-4: 

Aplicam-se a este módulo os comentários feitos sobre os módulos 
precedentes. 

Este módulo é semelhante ao módulo OPC-2, com a diferença de que 
requer a digitação apenas da quantidade devolvida do produto, não sen- 
do necessários os dados referentes a preços de custo e de venda, exi- 
gidos no módulo OPC-2 porque geralmente tais dados Bão alterados por 
ocasião de entradas de produtos. 


10-6 - ELABORAÇÃO DO MÓDULO 

OPC-5 - PESOU ISA DE PRODUTO 

Com o dBASE ativado no microcomputador, acionar o editor de pro- 
gramas próprio, comandando: 

HODIFY COMMAND OPC-5 <RETURN> 

Digitar em seguida a listagem que segue: 


*** PROGRAMA "CONTROLE DE ESTOQUE'' *** 

* MÓDULO OPC-5 - PESQUISA DE PRODUTO 

* 

set talk orr 
ER ABE 

USE CTRLSTOQ 


99 


ST ORE " " TO 0P5 
DO WHILE ! < 0P5 ) <> "H" 

S) 2,9 SAY "PESQUISA DE PRODUTO" 

<ü 3 , 9 SAY "==== ========== ==== = ". 

y 5,0 SAY "Digite o código ou < RETURN > p/encerrar." 

9 6,0 

ACCEPT TO MCOD 
IF MCOD = " " 

USE 

RELEASE ALL EXCEPT OP 

RETURN 

ENDIF 

LOCATE FOR CODIGO ■ l(MCOD) 

IF EOF 

a 9,8 SAY "Código não encontrado!" 

? 

ACCEPT " Pressione <RETURN> para continuar." TO QQ 
RELEASE MCOD 
ERASE 
LOOP 
ENDIF 
ERASE 

a 2,9 SAY "Produto pesquisados" 
a 5,5 SAY "Código " GET CODIGO 
a 7,5 SAY "Produto " GET DENOrt 
a 9,5 SAY "Departamento " GET DEP 
5) 10,5 SAY "Estoque atual " GET QTAT 

3 11,5 SAY "Estoque mínimo " GET QTMIN 

a 12,5 SAY "Preço de custo " GET PRC 

8 13,5 SAY "Preço de venda " GET PRV 

CLEAR GETS 

ffl 15,0 SAY "Valor de custo do estoques" 

3 15,28 SAY VALC USING 

a 16,0 SAY "Valor de venda do estoques" 

3 16,28 SAY VALV USING "tt , , *♦## - ##" 

o 

o 

ACCEPT "Outra pesquisa? < < R ETURN >~S J.M , <N>=NííO>" TO 0P5 
ERASE 


100 


ENDDO 

R ELE ASE ALL EXCEPT OP 
USE 

R ETURN 


Terminada e conferida a digitação, pressionar as teclas CONTROL e 
W simultaneamente para encerrar a edição do módulo e causar a sua gra- 
vação automaticamente no disquete. 

COMENTÁRIOS SOBRE O MÓDULO OPC-5: 

De forma geral, os comentários tecidos sobre os módulos preceden- 
tes sào válidos para este. 


Há apenas duas pequenas particularidades com relação a este módu- 
lo: a primeira é que não requer digitação de dados para processamento; 
solicita apenas o código do produto para pesquisa e busca do registro 
que o contém. A segunda particularidade é que, além dos dados normal- 
mente exibidos no vídeo através dos outros módulos, este produz também 
a exibição dos campos VALC e VALV que, como sabemos, representam os 
valoreB totais de custo e de venda de cada produto, dados esses dese- 
jáveis no caso de pesquisa doB itens. 


i 0.7 - ELABORACSO OO MÓDULO 

OPC-6 - EMISSÃO DE LISTAGEM 

Finalmente, chegamos ao último módulo de nosso programa-protótipo 
'CONTROLE DE ESTOQUE'. 

Este módulo é composto de duas partes: o módulo principal, encar- 
regado do processamento èspecífico para o qual foi criado, e um sub- 
módulo, cuja única função é promover a impressão do cabeçalho da lis- 
tagem no topo ou no início de cada página. 

Quando se deseja imprimir o cabeçalho de um relatório ou listagem 
apenas na sua primeira página, o aubmódulo pode ser incluído no módu- 
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lo do qual deriva. 


Quando, ao contrário, pretende-se imprimir o cabeçalho em todas 
as páginas, impõe-se como solução mais prática criar um submddulo e 
acioná-lo através do mddulo principal coa o comando DO <nome do sub- 
múdulo>. Esse foi o recurso adotado em nosso programa. 

Vamos agora digitar as duas parteB do mddulo OPC-6. Depois de di- 
gitados, teceremos outros comentários. 

Estando o dBASE ativado no microcomputador, comandar: 

ÜODIFY COMMAND OPC-6 <RETURN> 
e digitar em seguida a listagem que segue: 


»** PROGRAMA "CONTROLE DE ESTOQUE" *** 
* MÓDULO OPC-6 EMISSÃO DE LISTAGEM 
•x 

SET T AL K OFF 
ER ASE 

BTORE 1 TO PD 
ST ORE 50 TO MAX 
SET FOR MAT TO PRIMT 
DO 0PC-6SUIJ 

use: ctrlstoq 

DO WHILE . NQT . EOF 
IF * 

SK IP 
LOOP 
ENOIF 

3 LIN.0 S AY CODIGO 
3 L1N.5 S AY DENQM 
» L IN , 26 SAY DEP 

3 LIN.30 SAY QTMIN USING "WWW#" 
a L IN , 35 SAY QTAT USING "WWWWW" 

3 LIN,4i SAY PRC USING "WWWWW. WW" 
a L1N, 5® SAY PRV USING "WWWWW .MM" 
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a LI hl ,59 SAY VALC USING "#**«***#« . nn" 

<1) LIN. 70 SAY VALV UBING . tt«" 

SKIP 

STORE LIN + 1 TO LIN 
IF Lí N > MAX 
STORE PG + 1 TO PG 
SET EJECT ON 
EJECT 

DO OPC-óSUB 
SET EJECT OFF 
ENDIF 
ENDDO 

STORE LIN+2 TO LIN 

a) LlN + 1,9 SAY "*»*** TOTAIS PARCIAIS »****" 

SJ LIN+3,5 SAY "DEP" 

o) LIN+3, 10 SAY "VALOR DE CUSTO" 

9 LIN f3, 26 SAY "VALOR DE VENDA" 


«) l.IN + 4 .3 

SAY "= 

= =£=::=: ~:==;is=::=:sr=r 35 

SUM 

VALC 

FOR 

DEP 

s 

"CAM" 

TO 

CUSCAM 

SUM 

VALV 

FOR 

DEP 

2B 

"CAM" 

TO 

VENÇAM 

SUN 

VA!. C 

FOR 

DEP 

B 

"HAZ" 

TO 

CUS BAZ 

SUN 

VALV 

FOR 

DEP 

nr. 

"BAZ" 

TO 

VENBAZ 

SUM 

VALC 

FOR 

DEP 

cr 

"SAP" 

TO 

CUSSAP 

SUM 

VALV 

FOR 

DEP 

8S 

"SAP" 

TO 

VENSAP 


STORE CU5C AM + CUSB AZ+CUSSAP TO TOií 
STORE VENCAM+VENBAZ-» VENSAP IO T0T2 

5 L I N ♦ 6 , '5 SAY "CAM" 

9 LIN+6.12 SAY CUSCAM USING 
íí l JN>6,28 SAY VENÇAM USING 
a) LIN + 7,5 SAY "BAZ" 

ã) L.IN+7 , 12 SAY C USB AZ USING "*,***, H** .ttH" 

6 LIN+7,28 SAY VENBAZ USING "# ,###„###. «#" 

5) LIN + 8,5 SAY "SAP" 

o) LlN + 8,12 SAY CUSSAP USING "*♦,#«#, W*»« . RH" 

Si LIN+8,28 SAY VENSAP USING 

o) LIN + 9,5 SAY /y SSS:5!= = :=S= = = = 3= = «:!S = = M« = = o:«MSC®BB=t 

8 LIN+ií,9 SAY "****** TOTAIS GERAIS *•****#" 
<i) LIN+13,5 SAY "CzS" 

8 LIN+13,12 SAY TOTi USING " R . ##tt , tttttt . «#" 
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3 LIN+Í3, 28 SAY T0T2 USING "# , WH# , tttt# . 

3 LIN+Í 4 , 5 SAY "===========»=====*=*===“«=====»»*»*«" 

RELEASE ALL EXCEPT OP 
SET FORMAT TO SCREEN 
RETURN 


Terminada e conferida a digitação, pressionar simultaneamente as 
tecla3 CONTROL e W para encerrar a edição da parte principal do módulo 
OPC-6 e acionar sua gravação automática no disquete. 

Completada a gravação, comandar: 

MODIFY COMMAND OPC-6SUB < RETURN ; 

e digitar a listagem do submódulo, que segue: 


*#» PROGRAMA "CONTROLE DE ESTOQUE" *** 

* MÓDULO 0PC-6SUB - CABECALHO DA LISTAGEM 


V: 


STORE <& TO LIN 


"* NOME DA EMPRESA *" 


9 1.0 SAY 
9 1.25 SAY "LISTAGEM DO ESTOQUE" 
3 1,50 SAY "EMISSSO" 

3 1,58 SAY DATE () 

1,71 SAY "PAGINA" 

pg using "nn" 


a 

5) í , 78 SAY 
íi) 2rV> SAY 
3 2.40 SAY 
Ül 4.0 SAY 
3 4,5 SAY 
3 4,26 SAY 
3 4,31 SAY 
3 4,35 SAY 
3 4,41 SAY 
5J 4.50 SAY 
3 4,59 SAY 


"tí“ = ~ = — = ~ = =!=s^= = = ^!=:!b:! 3 !T::=r 


3? yy !ü* !T ! 33 jjjj ICS 22 SS 77"U 2£ 1X1 ^ SS SS Sl SI SC 


BaEssasssssssssssssss 

"COD" 

"PRODUTO" 

"DEP" 

"MIN" 

"ESTOQ" 

"PRCCUSTO" 

"PRCUENDA" 

' UALORCUSTO" 
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ü! A,7Q SAY "VALOR VENDA" 
ST ORE 6 TO LIN 
RETURN 


Terminada e conferida a digitação, pressionar as teclas CONTROL e 
W simultaneamente para encerrar a edição do submódulo. 

COMENTÁRIOS SOBRE O MÓDULO OPC-6: 

- A função do módulo OPC-6 é direcionar para uma impressora aco- 
plada ao microcomputador dados armazenados no arquivo CTRLSTOQ. 

- A impressão é comandada pelo comando § x,y SAY e o direciona- 
mento para a impressora é feito pelo comando SET FORMAT TO PRINT. 

- A instrução SET PRINT ON não foi usada porque, no caso do módu- 
lo em questão, não hã necessidade de enviar instruções especiais 
ã impressora. Se a largura da impressão da listagem excedesse o 
limite do formulário padrão para impressora de 80 colunas, equi- 
valente a 8 polegadas, seria necessário utilizar a modalidade de 
impressão condensada, a qual permite imprimir no mesmo formulário 
até 132 ou 160 caracteres por linha, incluídos os nulos ou "bran- 
cos", no caBO da impressora MONICA EI 6011. Em tal caso, as ins- 
truções indicadas a seguir deveriam ser incluídas no módulo, pre- 
cedendo a instrução SET FORMAT TO PRINT: 

SET PRINT ON 
? CHR < 15 ) 

para imprimir em até 132 colunas por linha, ou: 

SET PRINT ON 
? CHR < 30 ) + CHR (53) 

para imprimir em até 160 colunas por linha. 

- Os dados são impressos na forma de listagem ou relatório e os 
valores globais de custo e de venda de cada produto são totaliza- 
dos e sumanzados ao final por departamento atualmente existente 
no campo DEP do arquivo. 
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- Através das variáveis de memória MAX e LIN é controlada a pagi- 
nação da listagem, en<iuanto que a variável PG é usada para nume- 
rar 3uas páginas. 

- 0 comando DO 0PC-6SUB inserido nas primeiras linhas do módulo 
principal aciona a impressão do cabeçalho no início da listagem. 
Mais abaixo, o mesmo comando aciona a impressão do cabeçalho sem- 
pre que a listagem se estenda para uma nova página, o que ocorre 
após o avanço de cada 50 linhas pela impressora, em conformidade 
com o valor atribuído á variável MAX. 

- Tanto no módulo principal como no submódulo é usada a variável 
LIN para controlar o avanço do papel na impressora, de modo a ser 
obtida a paginação desejada. 

- O comando USE CTRLSTOQ abre o arquivo para uso dos dados arma- 
zenados enquanto que o comando SKIP controla a utilização sequen- 
cial dos seus registros. 

- O laço constituído pelo comando DO WHILE .NOT. EOF é respon- 
sável pela leitura dos registros até que o fim do arquivo seja 
atingido, quando então cessa automaticamente a sua atuação. 

- O comando composto 

IF * 

SKIP 

LOOP 

ENDIF 

faz com que registros marcados para deleção sejam "pulados", a 
fim de não figurarem no relatório. 

- As instruções e x.y SAY determinam os títulos e dados a serem 
impressos na listagem. 

- A cláusula USING determina o formato de impressão dos dados. 

- A total ízação e sumarização ao final da listagem são feitas por 
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intermédio dos comandos SUM e STORE. 


- Ao terminar a impressão da listagem, o comando SET FORMAT TO 
SCREEN redireciona a saida do sistema para a tela de vídeo e o 
controle do programa é devolvido ao MENU pelo comando RETURN. 


Terminada a digitação do módulo OPC-6, está pronto todo o progra- 
ma-protótipo "CONTROLE DE ESTOQUE" . Se sua digitação foi feita em con- 
formidade com as listagens apresentadas, ele poderã ser usado sem pro- 
blemas em seguida. Deve ser lembrado, todavia, que o programa foi ela- 
borado com base no arquivo CTRLSTOQ, criado no primeiro volume deste 
Curso e que, consequentemente, seu uso deve girar em torno daquele ar- 
quivo. Poderá ser usado com arquivo diferente do citado, desde que se- 
ja convenientemente adaptado. 

Para pflr em execução o programa, deve ser dado o comando 
DO MENU < RETURN > 

depois de ativado o dBASE de acordo com as normas já descritas. Todos 
os módulos que compõem o programa e mais o arquivo CTRLSTOQ.DBF devem 
estar reunidos no mesmo disquete, juntamente com os programas de sis- 
tema do dBASE II. Os programas que constituem propriamente o sistema 
dBASE II PLUS PARA MSX são os seguintes: 

DBASE -COM 
DBASEODR.COM. 

No caso de haver dois "disk drives" ligados ao microcomputador, 
a localização dos programas deverá ser feita de modo a dispor do sis- 
tema mais convenientemente. 

A fia de que sejam suficientemente conhecidos todos os recursos 
oferecidos pelo programa recénrelaborado, é aconselhável que o mesmo 
seja exaustivamente testado com base no seu menu de opções e no tipo 
de arquivo que o mesmo controla. 

Depois de testado e conhecido o programa em referência, o segui- 
dor de nosso curso constatará que o mesmo reüne praticamente todos os 
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recursos básicos exigidos para a finalidade, podendo servir de modelo 
ou guia para a elaboração de programas específicos para a área de con- 
trole de estoques. 

Todavia, e como esclarecemos antes, o programa por nós desenvol- 
vido não inclui certos recursos sofisticados que poderiam dificultar o 
seu entendimento por iniciantes na matéria. Tais recursos serão apre- 
sentados a partir do capítulo seguinte, coa a introdução dos comandos 
da série PLUS e alguns outros, completando o elenco disponível no sis- 
tema d BASE II PLUS PARA MSX. 

ifc.8 - FLUXOGRAMAS do programa 

''CONTROLE DE ESTOOUE" 

0 nível de detalhamento dos fluxogramas apresentados a seguir é 
considerado satisfatório. Poderá ser limitadamente elevado ou rebaixa- 
do, dependendo da conveniência do programador. 
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FLUXOGRAMA GERAL DO 


PROGRAMA "CONTROLE DE 



ESTOQUE" 
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FLUX OGR AMA DO MÓDULO SUPERVISOR - MENU 












FLUXOGRAMA DO MÓDULO OPC-I 


ENTRADA DE PRODUTO NOVO 


DO MENU 










FLUXOGRAMA DO MÓDULO OPC*i - CONTINUACaO 









FLUXOGRAMO DO MÓDULO OPC-2 - 

ENTRADA DE PRODUTO NSO NOVO 


DO MENU 



2 







FLUX OGR AMA DO MÓDULO OPC-2 


CONTI NUACSO 


O 


FECHAR ARQ. 
DE DADOS 


APAGAR AS 
VARIÁVEIS 
EXCETO OP 


RETURN 


MENU 



5 












FLUXOGR AMA DO MÓDULO OPC-3 


SAÍDA DE 


PRODUTO 


DO MENU 


( INÍCIO 

V V 



/ ABRIR 0 / 

ARQUIVO 
\ DE DADOS \ 



VARIÁVEL OP3 
P/O CONTROLE 
DO LAÇO 




INÍCIO DO 
LAÇO DE 
CONTROLE 



ENTRAR CÓD. 
DO PRODUTO 






FLUXOGRAMA DO MÓDULO OPC-3 - CONTINUAÇÃO 


FECHAR ARQ. 
DE DADOS 


LOCALIZAR 
O REGISTRO 


APAGAR AS 
VARIÁVEIS 
EXCETO OP 


EOF 


NÃO 


RETURN 


ENTRAR DADOS 
VIA TECLADO 


MENU 


ATUALIZAR 
O REGISTRO 


NAC 1 / \ SIM 
OP3 
* "N" 







*» 








FLUXOGRAfiA DO MÓDULO OPC-4 


CONTINUAÇSO 



9 









FLUX O GR AMA DO MÓDULO OPC-5 - 


PESQUISA DE PRODUTO 


DO MENU 


^ INÍCIO ^ 



í ABRIR 0 / 

ARQUIVO 
\ DE DADOS y 



VARIÁVEL OP5 
P/O CONTROLE 
DO LAÇO 




INÍCIO DO 
LAÇO DE 
CONTROLE 



ENTRAR CÓD. 
DO PRODUTO 















FLUXOGRAMA DO hoDULO OPC-6 - 


EMISSSO DE LISTAGEM 


DO MENU 


INICIO 


VARIÁVEIS 
PG = 1 

MAX=50 / LIN=0 


IMPRIMIR 

CABEÇALHO 


ABRIR O 
ARQUIVO 
DE DADOS 


INICIAR LAÇO 
DO WHILE 
.NOT. EOF 


ENVIAR DADOS 
PARA 

IMPRESSORA / 





FLUXOGRAMA DO MÓDULO OPC-6 


CONTINUACSO 



MENU 
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10.9 - MÓDULOS COMPLEMENTARES 

AO PROGRAMA '"CONTROLE DE ESTOQUE" 

Proposital mente não incluímos em nosso programa "Controle de Es- 
toque" recursos para alterações diretas e irrestritas d03 conteúdos de 
qualquer registro e para eliminação de registros do arquivo de dados, 
os quais serão apresentados separadamente nos itens de índice 10-10, 
10.11 e 10.12. 

Tal exclusão se deve ao fato de que, normal mente, em pequenas em- 
presas tais recursos ficam reservados somente ao proprietário da firma 
ou a seu preposto e, em empresas de médio e de grande porte, ao geren- 
te administrativo ou ao chefe do centro de processamento de dados. 

A ra 2 ão de os recursos em questão serem reservados de modo a im- 
pedir o acesso aos mesmos pelo operador comum do sistema de processa- 
mento de dados se prende à necessidade de evitar que registros sejam 
alterados ou eliminados indevidamente, seja por descuido, má-fé ou ou- 
tra razão qualquer, já que pode ser muito difícil, ou mesmo impossível 
em muitos casos, restabelecer ou recuperar informações adulteradas ou 
perdidas, se qualquer dos fatos ocorrer, ainda que percebido. E quando 
tais fatos não são percebidos, quem vai notar a falta de um registro 
eliminado indevidamente se também a mercadoria correspondente, que po- 
deria chamar a atenção para o fato, "desapareceu misteriosamente"? E 
quem poderá ter certeza de que certos dados não estejam sendo altera- 
dos indevidamente, desde que o sistema de controle não esteja munido 
de recursos cerceadores de tais possibilidades? 

Contudo, em que pesem tais argumentos, muitas vezes os recursos 
para alterar diretamente os dados e para eliminar registros são exigi- 
dos em sistemas de controle de estoque, mesmo porque, dependentemente 
do tipo de mercadoria envolvida, os itens são mutáveis ou suas carac- 
terísticas e especificações estão sujeitas a alterações frequentes. 

Todavia, nos casos em que os recursos para alteração direta dos 
dados e para eliminação de registros estejam normalmente disponíveis 
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no sistema, outras medidas para prevenção de erros, descuidos e má-fé 
devem ser implementadas no gerenciamento global dos dados. 

São muitos os chamados "recursos de prevenção" que podem ser ado- 
tados em tai 3 casos, mas são geralmente complexos e aplicáveis especi- 
ficamente para cada tipo de arquivo e em função de suas condições ge- 
rais de funcionamento e de uso. 

Introduziremos a 3eguir os dois módulos que possibilitam efetuar 
alterações diretas nos campos de dados e eliminar registros do arqui- 
vo. A critério do usuário ou do programador, esses módulos poderão ser 
incluídos no programa "Controle de Estoque" por nós desenvolvido neste 
Curso, bastando para tanto inserir as opções para sua execução no mó- 
dulo MENU, respectivamente como opções de números 7 e 8, remunerando a 
de número 7 atual com o número 9. 

0 módulo introduzido a seguir é o que possibilita efetuar altera- 
ções diretamente nos conteúdos de campos de qualquer registro. Ele se- 
rá apresentado em duas versões, a fim de oferecer ao usuário a escolha 
da que julgar mais conveniente. Uma utiliza os comandos GET e READ, 
enquanto a outra emprega o comando EDIT para a mesma finalidade. 


10.10 - ELABORAÇÃO DO MÓDULO 

OPC-ALT - ALTERAÇÃO DE PRODUTO 


Estando o dBASE ativado no microcomputador, comandar: 

MODIFY COMMAND OPC-ALT < RETURN > 

Em seguida, fazendo uso do3 recursos do editor de programas acio- 
nado, digitar a listagem que segue: 


*** PROGRAMA '"'CONTROLE DE ESTOQUE 7 ' **« 

* MODULO OPC-ALT - ALTERAÇÃO DE PRODUTO 
•x 

SET TALK OFT 
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LR ASE 

LISE CTRLSTOG 

ST ORE " " TO OP 7 

DO WHILE '<OP7> <> "N" 

S) 2,9 SAY "ALTERAÇÃO DE PRODUTO"' 
d) 3,9 SAY 

a] 5,0 SAY "Digite o códlqo ou <RETURN> p/encerrar." 

d) 6,0 

ACCEPT TO MCOD 
IF HCOD * " " 

USE 

R ELE ASE AL.L EXCEPT OP 

RETURN 

ENDIF 

L.OCATE FOR CODIBO = ! ( MCOD ) 

IF EOF 

íi) 9,3 SAY "Código nao encontrado!" 

'p 

ACCEPT " Pressione < RETURN > para continuar-' TO 00 
R ELE ASE MCOD 
ERASE 
LOOP 
ENDIF 
ERASE 

□ 2,9 SAY "PRODUTO A ALTERAR a" 
ó) 5,5 SAY "Código " CET CODIGO 
ii) 7,5 SAY "Produto " <3 ET DENOM 
«D 9,5 SAY "Dcpar taraento " CET DEP 
m) i 0 , 5 SAY "Estonue atual " GET QTAT 
íi) li, 5 SAY "Estoque min imo " GET QTMIN 

ii) 12,5 SAY "Preço de custo " GET PRC 

u) 13,5 SAY "Preço de venda " GET PRU 

.1) 15,0 SAY "Valor de custo do estoques" 

3 Í5.2G GET VALC PICTURE "#######. «d" 
o) 16,0 SAY "Valor de venda do estaque?:" 

3 í 6 , 28 GET VALO PICTURE " ###«###. ##" 

READ 
S 13.0 
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AC CEP T "Outra alteração? < < RETURN >»SIM , <N>=N2Q>" TO OP7 

ER ASE 

ENDDO 

RELEASE ALL. EI X CEP T OP 


use: 

RETURN 


Terminada e conferida a digitação, pressionar as teclas CONTROL e 
W simultaneamente a fim de encerrar a edição do módulo e fazer com que 
seja gravado automaticamente no disquete. 

COMENTÁRIOS SOBRE O MÓDULO OPC-ALT: 

Este módulo é semelhante ao módulo OPC-5 - PESQUISA DE PRODUTO. A 
diferença principal entre ambos é que neste não é utilizado o comando 
CLEAR GETS , de modo que todos os conteúdos de campos expostos através 
do comando GET são abrangidos pelo comando READ na modalidade de edi- 
ção. permitindo efetuar as alterações desejadas diretamente sobre es 
ses mesmos conteúdos, característica essa do comando READ já estudada. 

De resto, os comandos utilizados são os mesmos empregados no mó- 
dulo OPC-5, tendo sido já comentados. 

A listagem apresentada a seguir refere-se à segunda versão do mó- 
dulo para alteração direta dos conteúdos de campos de registro. 


Í0.1Í - ELABORACSO DO MÓDULO 

OPC-EDIT - EDICSO DE PRODUTO 

Com o d BASE ativado no microcomputador, comandar: 

MODIFY COhliAND OPC-EDIT 
Digitar em seguida a listagem que segue: 
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*## PROGRAMA "CONTROLE DE ESTOQUE" *** 

* MÓDULO OPC-EDIT - EDICSO DE PRODUTO 

* 

SET TALK OFF 
ERASE 

USE CTRLSTOQ 

ST ORE " " TO 0P7 

DO WHILE ! < 0P7 ) <> "N" 

3 2,9 SAY "EDICSO DE PRODUTO" 

5) 3,9 SAY " = 3=:=”=3 = = ="= s ~= : = : = : =“ : = : = = !::! " 

3 5,0 SAY "Digite a código ou <RETURN> p/encerrar." 

«fl 6,0 

ACCEPT TO MCOD 
IF MCOD » " " 

USE 

RELEASE ALL EXCEPT OP 
RETURN 

endif 

LOCATE FOR CODIGO « !<MCOD) 

IF EOF 

3 9,8 SAY "Código não encontrado!" 

? 

ACCEPT " Pressione <RETURN> para continuar." TO 00 
RELEASE MCOD 
ERASE 
L.OOP 
ENDIF 
ERASE 

S) 10,2 SAY "Após fazer as correcoes tecle CTRL «W" 

■p 

EDIT tt 
ERASE 
3 10,0 

ACCEPT "Outro produto? < < RETURN >=SIM , <N>=NSO>" TO 0P7 

ERASE 

ENDDO 

RELEASE ALL EXCEPT OP 
USE 

RETURN 
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Terminada e conferida a digitação, pressionar a una só vez as te 
cias CONTROL e W a fim de encerrar a edição do módulo e fazer com que 
seja gravado automaticamente no disquete. 

COMENTÁRIOS SOBRE O MÓDULO OPC-EDIT: 

Este módulo gera a exibição de todos os campos de registro e res- 
pectivos conteúdos em modo de edição plena, em conformidade com as ca- 
racterísticas próprias do comando EDIT, permitindo que alterações se- 
jam efetuadas diretamente sobre esses mesmos conteüdos. 

Os demais comandos utilizados neste módulo já foram comentados em 
relação aos módulos anteriormente apresentados. 

A seguir é apresentado o módulo que possibilita eliminar regis- 
tros do arquivo. 


i«.i2 - ELABORAÇÃO DO MÓDULO 

OPC-DEL - ELIMINAÇÃO DE PRODUTO 

Com o dBASE ativado no microcomputador, comandar: 

MODIFY COMMAND OPC-DEL < RETURN > 
e digitar após a listagem que segue: 


•*** PROGRAMA "CONTROLE DE ESTOQUE" *** 

* MÓDULO OPC-DEL - ELIMINAÇÃO DE PRODUTO 

* 

SET TALK OFE 
ER ASE 

USE CTRLSTOQ 

ST ORE " " TO 0P8 

[)0 WHILE ! < 0P8 ) <> "N" 
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3 2 , 9 SAY "ELIMINAÇÃO DE PRODUTO" 

<l) 3,9 SAY "====== aiassExstxassssrsssisss:" 

U 5,0 SAY "Digite a código ou <RETURN> p/en cerrar." 

3 6,0 

ACCEPT TO MCOD 
IF MCOD “ " " 

USE 

RELEASE AL.L EXCEPT OP 

RETURN 

ENDIF 

LOCATE FOR CODIGO = !(MCOD) 

IF EOF 

a 9 , 8 SAY "Código não encontrado!" 

7 

ACCEPT " Pressione <RETURN> para continuar." TO 00 
RELEASE MCOD 
ER ASE 
LOOP 
ENDIF 
ER ASE 

a 2,9 SAY "PRODUTO A ELIMINAR:" 

3 5,5 SAY "Código " GET CODIGO 
a 7,5 SAY "Produto " GET DENOM 
a 9,5 SAY "Departamento " GET DEP 
a 10,5 SAY "Estoque atual " GET QTAT 

a 11,5 SAY "Estoque mínimo " GET QTMIN 

a 12,5 SAY "Preco de custo " GET PRC 

3 13,5 SAY "Preco de venda " GET PRU 

CLEAR GETS 

a 15,0 SAY "Valor de custo do estoques" 

» 15,28 SAY UALC USING "tt ,#»«, . tttt" 
a 16,0 SAY "Valor de venda do estaque:" 
d 16,28 SAY UALU USING " tt , 

? 

ACCEPT " Confirma a eliminação? (S/N)" TO RESP 

IF ! < RESP ) « " 5 " 

DELETE 

o 

? " Registro assinalado para eliminação." 
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Será eliminado após o processamento 


? " 

END f F : 


// 


ACXEPI "Outro produto? < < RETURN >=Slh , <N>=N&0>" TO 0P8 

ER ASE 

ENODO 

RELEASE AL L EXCEPT OP 

PACK 

USE 

RETURN 


Terminada e conferida a digitação, pressionar as teclas CONTROL e 
w para encerrar a edição do módulo e provocar a sua gravação automáti- 
ca no disquete. 

COMENTÁRIOS SOBRE 0 MODULO OPC-DEL: 

Este módulo gera a exibição no vídeo de todo o conteüdo do regis- 
tro de arquivo selecionado, ofereçendo ao usuário a opção de eliminá- 
lo do arquivo, o que é feito através do comando DELETE, no seu modo de 
funcionamento normal. Ao ser encerrado o processamento pelo módulo, o 
comando PACK é automaticamente acionado a fim de confirmar a exclusão 
do(s) registro(s) assinalado(s) . Caso seja pretendido apenas assinalar 
os registros para deleçâo, sem confirmá-la, o comando PACK deverá ser 
excluído do módulo. 


Para os módulos introduzidos nos itens 10.10, 10.11 e 10.12 não 
foram elaborados fluxogramas, já que sua estruturação geral se asseme- 
lha aos módulos apresentados precedentemente para o mesmo programa. 
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* X 


COM N O O S 


o *=% s; eh: r x ie; 


P l_ IJ O 


Os comandos da série PLUS, incorporados ao d BASE mais recentemen- 
te, permitem introduzir em programas elaborados neste sistema alguns 
dos recursos mais avançados da informática. 

Graças a tais comandos, a automatização das seguintes facilidades 
pode ser introduzida no gerenciamento de bancos de dados através do 
sistema d BASE ; 

- teste de validade de data; 

- determinação de intervalo (em dias) entre duas datas; 

- determinação de data futura com base em acréscimo de prazo (em 
dias) sobre data inicial, para efeito de vencimento de contra- 
tos, duplicatas etc,; 

- determinação de data futura, com transferência automática para 
segunda-feira quando a data coincide com sábado ou domingo; 

- conversão da pontuação do sistema americano - inerente nos com- 
putadores - para o sistema europeu, que é o adotado no Sistema 
Métrico Decimal do Brasil; 

- troca de brancos à esquerda de números por zeros; 


132 


- criação de dígito de controle para número, de acordo com o sis- 
tema "módulo 11"; 

- teste de validade de CGC; 

- teste de validade de CPF; 

- conversão de números inteiros simples para o padrão monetário 
do sistema europeu, que é o adotado no Brasil; 

- criação e uso de senha para abertura de programas ou arquivos. 

Os comandos da série PLUS serão descri to3 a seguir. Cada comando 
será acompanhado por um pequeno programa para testá-lo e que servirá, 
ao mesmo tempo, como módulo-tipo para adoção em programas efetivos. 

Comando PLUS CDATE 

*** PLUS CDATE testa a validade de uma data. Sua sintaxe é: 

PLUS CDATE < var i áve 1 i > TO <variáv*12> 

Variávell deve ser uma variável alfanumérica, ou tipo C, na qual 
deve ser armazenada a data no formato DDMMAA (dia, mês e ano, todos 
com dois dígitos. Exemplo: 160688). 

Variável 2 deve ser uma variável alfanumérica na qual deve ser ar- 
mazenado previ amente, isto é, antes de ser executado o comando em fo- 
co, um espaço em branco (" ") . 

Quando a data testada é válida, PLUS CDATE atribui um 1 à Variá- 
vel. Em caso contrário será atribuído um 0 à essa variável. Assim, a 
validade ou não da data testada é constatada através da verificação do 
conteúdo da Variável2. 

o pequeno programa apresentado a seguir testa o comando descrito 
e exemplifica o seu uso: 
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PROGRAMA-TESTE "PLUS CDATE" 


SET TALK OFF 
ER ASE 

ST ORE " " TO CT 
DO WHILE CT * " " 

*? 

? 

? "Digite a data no formato DDMMAA 
? " (Tecle ESC para parar.)" 

? 

ACCEPT TO DATA 
ST ORE " " TO DER 
PLUS CDATE DATA TO DER 
IF DER = "í" 

? 

? " DATA OKI" 

ELSE 

? 

? " DATA INVALIDA ! " 

ENDIF 

ENDDO 

RELEASE ALL 
SET TALK ON 
CANCEL 


Comando PLUS DDATE 

*** PLUS DDATE calcula o intervalo entre duas datas e retorna o re- 
sultado em quantidade de dias. Sua sintaxe é: 

PLUS DDATE <variáveli> <variável2> 

TO < var i ável 3> 
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Variávell deve ser una variável alfanumérica (tipo C ou "Btring") 
na qual deve ser armazenada a data inicial no formato DDMMAA (dia, mês 
e ano, todos com dois dígitos. Exemplo: 050788). 

Variável2 deve ser também uma variável alfanumérica na qual deve 
aer armazenada a data final no formato DDMMAA. 

Variável3 deve aer igualmente uma variável alfanumérica na qual 
devem ser armazenados cinco espaços em branco (" *> antes de ser 
executado o comando PLUS DDATE . 

O resultado do cálculo efetuado pelo comando PLUS DDATE é armaze- 
nado na Variável3, de modo que a verificação de seu conteúdo fornece o 
intervalo (em dias) existente entre as duas datas processadas. 

O pequeno programa que segue testa o comando descrito e exempli- 
fica o seu uso: 


PROGRAMA-TE5TE "PLUS DDATE" 

* TESTE "PLUS DDATE" 

SET TALK OFF 
ER ASE 

STORE " " TO CT 
DO WHILE CT s» " " 

? 

? "Digite a data inicial" 

? " no formato DDMMAA ou" 

ACCEPT " tecle ESC p / parar " TO DATANT 

'3 

ACCEPT "Digite a data final " TO DATPOS 
STORE " " TO Dl AB 

PLUS DDATE DATANT DATPOS TO DIAS 
? 

? " DIAS DECORRIDOS:" , DIAS 
ENDDO 
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RELEASE ALL 
BET TALK ON 
CANCEL 


Comando PLUS ADATE 

*** PLUS ADATE determina uma data futura com base em acréscimo de até 

242 dias sobre uma data indicada. Sua sintaxe é: 

PLUS ADATE (var iáveli) <var iáve!2> 

<variável3> TO <var iável 4> 

Variávell deve ser uma variável alfanumérica na qual deve ser ar- 
mazenada a data inicial no formato DDMMAA. 

Variável2 deve ser também uma variável alfanumérica na qual devem 
ser armazenados os dígitos correspondentes à quantidade de dias a ser 
acrescentada à data inicial. Tal quantidade de dias deve ser digitada 
sempre com três dígitos, conforme um dos formatos indicados a seguir: 
QOX, OXX, XXX, sendo X a quantidade desejada. 

Variável3 deve ser igualmente uma variável alfanumérica na qual 
deve ser armazenado um 0 ou um 1 , a fim de determinar o critério para 
contagem dos dias indicados. A contagem será feita a partir da data 
inicial se for atribuído um 0 a essa variável. Se lhe for atribuído um 
1 a contagem será feita a partir do primeiro dia do mês seguinte à da- 
ta inicial. 

Variável 4 deve ser também uma variável alfanumérica na qual devem 
ser armazenados seis espaços em branco (" ") antes de ser execu- 

tado o comando PLUS ADATE. 

Depois de executado o comando, o resultado será armazenado na Va - 
nável4, de modo que a leitura de seu conteúdo indicará a data futura. 


0 pequeno programa listado a seguir se presta a testar o comando 
ora descrito, exemplificando ao mesmo tempo o seu uso: 
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PROGRAHA-TE5TE "PLUS ADATE" 


* TESTE "PLUS ADATE" 
SET TALK OFF 
ER ASE 

ST ORE " " TO CT 
DO UHILE CT - " " 


? "Diq ite a data inicial no Forma-" 
ACCEPT "to DÜMhAA ou tecle ESC p/parar 


" TO DATAI 


9 

7 "Digite no formato 00 X, 0XX ou XXX a 
ACCEPT " quantidade de dias a acrescentar 


"TO DIAS 


7 

? "Contagem a partir da data inicial ou" 
ACCEPT " primeiro dia do mês seguinte (I/S> 
STORE !(T> TO Ti 
IF Ti * "I" 

STORE "0" TO INI 
EL se: 

STORE "i" TO INI 
ENDIF 

STORE " " TO DAT A2 

PLUS ADATE DATAI DIAS INI TO DATA2 

7 

? " *** A PRÓXIMA DATA é ", DAT A2 
ENDDO 

SET TALK ON 
CANCEL 


Comando PLUS TDATE 

*** PLUS TDATE determina una data futura coo base em acréscimo de 
dias sobre uma data indicada, transferindo para a SEGUNDA-FEIRA a 
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data futura se esta coincidir com SABado ou domingo. 


Sua sintaxe é: 

PLUS TDATE <variáveli> <variável2> 

<variável3> TO <var iável4> 

Basicamente o comando PLUS TDATE é similar ao comando PLUS ADATE, 
sendo ambos regidos pela mesma sintaxe. 

Aplicam-se a este comando todas as explanações feitas sobre o seu 
similar. 

Testes com o comando PLUS TDATE podem ser feitos com o programa 
cuja listagem é apresentada a seguir: 


P R OGR AMA— TESTE "PLUS TDATE" 

* TESTE "PLUS TDATE" 

SET TALK OFF 
ERASE 

STORE " " TO CT 
DO WHILE CT * " " 

*? 

? "Digite a data inicial no forma-" 

ACCEPT " to DDMMAA ou tecle ESC p/parar " TO DATAI 

o 

? "Digite no formato 00X. OXX ou XXX a" 

ACCEPT " quantidade de dias a acrescentar " TO DIAS 

7 

? "Contagem a partir da data inicial ou" 

ACCEPT " primeiro dia do mês seguinte (I/S) " TO T 
STORE ! < T ) TO Ti 
IF Ti * "I" 

STORE "0" TO INI 
ELSE 

STORE "í" TO INI 
ENDIF 
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ST ORE " " TO 0ATA2 

PLUE TDATE DATAI DIAS INI TO DAT A2 
? 

? " *#* A PRÓXIMA DATA é ", DATA2 
ENDDQ 

SET TALK ON 
CANCEL 


Comando PLUS CHANGE 

*** PLUS CHANGE converte a pontuação do sistema monetário americano 

para o europeu, que é o adotado no Brasil. Sua sintaxe é; 

PLUS CHANGE <variáveli> TO <variável2> 

Variávell deve 3er uma variável alfanumérica na qual devem ser 
armazenados os dígitos correspondentes ao valor, no formato do sistema 
americano, isto é, com ponto separando os centavos e vírgulas separan- 
do cada três dígitos da parte de inteiros. 

Variável2 deve ser também criada e definida como variável alfanu- 
mérica e com a mesma quantidade de espaços da Variávell, antes de ser 
executado o comando PLUS CHANGE. 

Após a execução de PLUS CHANGE, a conversão feita é armazenada na 
Variável2 e obtida através da leitura do conteúdo dessa variável. 

Deve ser observado que os valores convertidos pelo comando em fo- 
co não são aritmeticamente válidos no dBASE, pois são conteúdos de va- 
riáveis alfanuméricas. Como sabemos, a computação de números ou valo- 
res só pode ser feita diretamente através de dígitos números ou atra- 
vés de variáveis numéricas. Assim, independentemente do processamento 
através do comando PLUS CHANGE - cuja finalidade é a conversão de for- 
mato apenas para efeito de clareza e estética na apresentação dos da- 
dos os valores devem ser atribuídos a variáveis numéricas e compu- 
tados paralelamente através das mesmas para fins aritméticos. No Capí- 
tulo 12 - RECURSOS SOFISTICADOS - é apresentado um módulo que permite 
computar efetivamente valores aritméticos, ou monetários, e convertê- 
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los no padrão de pontuação europeu para efeito de exibição no video ou 
reprodução em relatdnos emitidos através de impressora. 

A seguir é listado um pequeno programa para teste do comando PLUS 
CHANGE, servindo o mesmo como exemplo para programas efetivos: 


PROGRAMA-TESTE "PLUS CHANGE" 

* TESTE "PLUS CHANGE" 

SET TALK OFF 
ER ASE 

STORE "S" TO RESP 
DO UHILE RESP * "S" 

5) 12.0 SAY "... 

STORE " " TO UAL 

ÍD 6,0 SAY "Qual o valor? "GET UAL PICTURE "W , 
READ 

STORE UAL TO UALORÍ, UALOR 2 
PLUS CHANGE UALORÍ TO UAL0R2 
íi) 7,0 

? "Sua conversão: ",UAL0R2 
? 

? 

ACCEPT "Outro teste? (S/N)" TO RESP 

STORE ! (RESP ) TO RESP 

ENDDO 

RELEASE ALL 
SET TALK ON 
CANCEL 


Comando PLUS LZERO 

*** PLUS LZERO troca brancos ã esquerda de números por zeros 
Sua sintaxe é: 


mo 


PLUS LZERO <var iávcli) TO <variáve!2> 


Vanávell deve ser una variável alfanumérica que deve conter, com 
brancos à esquerda, os dígitos referentes ao número a Ber processado. 

Vanável2 deve ser também uma variável alfanumérica com a mesma 
quantidade de espaços da Vanávell. Deve ser criada e definida antes 
da execução do comando PLUS LZERO. 

Depois da execução do comando PLUS LZERO, o número convertido é 
armazenado na Variável2, da qual é obtido. 

Os números convertidoB por esse comando não são computáveis, pois 
não são aritmeticamente válidos no dBASE, já que são representados por 
variáveis alfanuméricas. Como sabemos, a computação de números ou va- 
lores só pode ser feita diretamente ou através de variáveis numéricas, 
de modo que, independentemente do processamento por PLUS LZERO, os nú- 
meros devem ser atribuídos a variáveiB numéricas e computadoB através 
das mesmas para fins de cálculos aritméticos. 

No Capítulo 12 - RECURSOS SOFISTICADOS - é apresentado um módulo 
que permite processar números aritmeticamente e convertê-los paralela- 
mente com zeros a esquerda. 

0 pequeno programa apresentado a seguir testa o comando descrito 
e exemplifica o seu uso: 


PROGRAMA-TESTE "PLUS LZERO" 

x TESTE "PLUS LZERO" 

SET TALK OFT 
ER ASE 

STORE " " TO CT 
DO WHILE CT * " " 

? 

? "Digite um n° ou" 

INF‘UT " tecle ESC p/parar " TO NUM 



STORE STR ( NUM ,10,0) TO NUM í 
STORE " " TO NUM2 

PLUS LZERO NUMÍ TO NUM2 

? 

? " Número convertido: ", NLIM2 

ENDDO 

RELEASE ALL 
SET TALK ON 
CANCEL 


Comando PLUS MODli 

*** PLUS MODli calcula e fornece o dígito de controle de um minero, 
de acordo cob o padrão "nódulo 11". Sua sintaxe é: 

PLUS MODli (variávell) TO <variável2> 

Variávell deve ser una variável alfanumérica na qual deve ser ar- 
nazenado o minero que receberá o dígito de controle. 

Variável2 deve ser também uma variável alfanumérica na qual deve 
ser armazenado apenas um espaço em branco ( " "). Deve ser criada e de- 
finida antes da execuçào do comando PLUS MODli. 

Depois de gerado pelo comando PLUS MODli, o dígito de controle é 
armazenado na Vanável2, da qual é obtido, 

0 pequeno programa listado a seguir testa o comando descrito, ao 
mesmo tempo que exemplifica o seu ubo: 


PROGRAMA— TESTE "PLUS MODli" 

* TESTE "PLUS MODli" 

SET TALK OFF 
ER ASE 

STORE " " TO CT 
DO UHILE CT = " " 
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7 

7 

? "Digite um nQ ou" 

INPUT " tecle ESC p/p arar "TO NUh 
ST ORE STR< NUM, 10,0) TO NUhi 
ST ORE " " TO Dl OIT 
F* LUS MODlí NUM 1 TO DIGIT 

7 

7 " O com dígito é ",NUM1 + ,, — t + Dl GIF 

ENDDO 

R ELE ASE ALL 
SET TALK ON 
LANCEI. 


Comanda PLUS CGC 

*** O comando PLUS CGC testa a validade do número de CGC (Cadastro 
Geral de Contribuintes, do Ministério da Fazenda) . Sua Bintaxe é: 

PLUS CGC <vmriáveli> TO <variável2> 

Vanávell deve ser uma variável alfanumérica na qual os dígitos 
do CGC a Ber conferido devem ser armazenados. 

Variável2 deve ser também uma variável alfanumérica na qual deve 
ser armazenado apenaB um espaço em branco (" ") ou qualquer caractere. 
Deve Ber criada e definida antes da execução do comando PLUS CGC. 

Após a execução do comando PLUS CGC, o d BASE atribui à Vanável2 
um 1 ou um 0. Se o número do CGC for válido, será atribuído um 1 a es- 
sa variável. Ser-lhe-á atribuído um 0 em caso contrário. 

Assim, a validade ou não do número de CGC testado é deduzida pela 
interpretação do conteúdo da Vanável2, após a execução de PLUS CGC. 

O pequeno programa apresentado a seguir serve para testar o co 
mando descrito e exemplica o seu usot 
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PROGRAMA— TESTE "PLUS CGC" 

* TESTE "PLUS CGC" 

SET TALK OFF 
ER ASE 

ST ORE " " TO CT 
DO UHILE CT - " " 

ST ORE " " TO REP 
•y 

? "Digite o CGC sen» pontos nem espaços" 
? " em branco ou tecle ESC p/parar" 

o 

ACCEPT TO MCGC 
PLUS CGC MCGC TO REP 
IF REP = "í" 

7 

7 " O nQ do CGC está correto!" 
ELSE 

7 " 0 nQ do CGC está errado!" 

ENDIF 
ENÜDO 

RELEASE ALL 
SET TALK ON 
CANCEL 


Comando PLUS CPF 

*** PLUS CPF testa a validade do núnero de CPF (Cadastro de Pessoa 
Física, do Ministério da Fazenda). Sua sintaxe é: 

PLUS CPF <variávell> TO <variáve!2> 

Basicaaente, as características deste conando são idênticas às do 
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comando PLUS CGC, sendo ambos regidos pela mesma sintaxe. 

Aplicam-se a PLUS CPF todas as explanações feitas sobre PLUS CGC. 

0 pequeno programa apresentado a seguir serve para testes do co- 
mando e também exemplifica o seu uso: 


PROGRAMA-TESTE "PLUS CPF" 

* TESTE "PLUS CPF" 

SET TALK OFF 
ER ASE 

ST ORE " " TO CT 
DO UHILE CT = " " 

STORE " " TO REP 

r* 

? 

? "Digite o CPF sem pontos nem espaços" 
? " em branco ou tecle ESC p/parar" 

? 

ACCEPT TO MCPF 
PLUS CPF MCPF TO REP 
IF REP * "i" 

7 

7 " 0 nS do CPF está correto!" 

EL SE 
? 

? " 0 n2 do CPF está errado!" 

ENDIF 

ENDDO 

RELEASE ALL 
SET TAL.K ON 
CANCEL 


Comando PLUS FORtfAT 

*** PLUS FORílAT converte números inteiros simples para o padrão mone- 
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tário do sistema europeu, que é o adotado no Brasil. 


Sua sintaxe é: 

PLUS FORMAT <variávelí> <variável2> 

TO <varí.ável3> 

Variávell deve ser uma variável alfanumérica na qual devem aer 
armazenados os dígitos correspondentes ao número a ser convertido para 
o padrão monetário. Os dígitos não devem ser separados por ponto deci- 
mal nem por vírgulas a cada três casas da parte inteira. Por exemplo, 
um valor igual a 12,345.60 (ou 12.345,60 no formato brasileiro) deve 
ser digitado no formato 1234560. 

Variável 2 deve ser também uma variável alfanumérica à qual deve 
deve ser atribuído o dígito correspondente à quantidade de casas deci- 
mais desejadas para o número convertido. 


Variável 3 deve ser igualmente uma variável alfanumérica com espa- 
ços em branco em quantidade igual à correspondente aos espaços ocupa- 
dos pela Variávell, ou maior, e mais os espaços destinados aoB pontos 
de separação de cada três casas da parte inteira e a vírgula de sepa- 
ração das casas decimais. Esta variável deve ser criada e definida an- 
tes da execução do comando PLUS FORMAT . 

O número já convertido por PLUS FORMAT é armazenado na Variável 3, 
de onde deve ser recuperado para exibição ou reprodução impressa. 

O valor convertido por PLUS FORMAT não é computável aritmetica - 
mente, em vista de ser conteúdo de variável alfanumérica, do mesmo mo- 
do que ocorre com os comandos PLUS CHANGE e PLUS LZERO. Assim, para 
que o valor efetivo seja computado aritmeticamente, deve aer atribuído 
a uma variável numérica e processado independentemente, ainda que pa- 
ralelamente. No Capítulo 12 - RECURSOS SOFISTICADOS - são apresentados 
módulos que utilizam o processamento paralelo. 

O pequeno programa apresentado a seguir exemplifica o uso do co- 
mando PLUS FORMAT e pode ser usado para testá-lo: 
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PROGRAMA-TESTE "PLUS FORHAT" 

* TESTE "PLUS FOR h AT" 

SET TALK OFF 
ER ASE 

STORE " " TO CT 
DO UHILE CT * " " 

STORE " " TO MASCARA 

STORE "2" TO DECIMAIS 

T> 

? 

? "Digite sem separação nem ponto decimal" 
? " o nS a ser convertido ou ESC p/parar" 

7 

INPUT TO MNUM 

STORE STR ( MNUM ,15,0) TO NUMERO 

PLUS FOR.MAT NUMERO DECIMAIS TO MASCARA 

7 

7 " NS con ver t i do s ", MASCARA 
ENDDO 

RELEASE ALL 
SET TALK ON 
CANCEL 


Comando PLUS CODE 

*** PLUS CODE permite a criação e uso de senha para abertura de pro- 
gramas ou arquivos. Sua sintaxe é: 

PLUS CODE < var i áve 1 i > 

<vartável2> TO <variável3> 

Variávell deve ser uma variável alfanumérica na qual devem ser 
armazenados dois dígitos correspondentes à LINHA de vídeo em que será 
exibida a solicitação da "senha" pelo dBASE . 
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Variável 2 tem a mesma finalidade, porém com relação à COLUNA de 
video em que será exibida a solicitação da senha. 

Variável3 deve ser igualmente uma variável alfanumérica na qual 
devem ser armazenados espaços em branco em quantidade correspondente à 
da palavra criada como senha. 

Ao ser executado o comando PLUS CODE, a senha é solicitada atra- 
vés da frase: 


Entre com a senha! 

exibida no vídeo no local especificado por Variávell e Variável2. 

Ao ser digitada a senha pelo usuário surgem no vídeo, após a fra- 
se de solicitação, apenas pontos (.), em quantidade correspondente aos 
caracteres digitadoB, a fim de que os mesmos não sejam revelados a ob- 
servadores curiosos. 

Após a digitação da senha, os caracteres fornecidos são armazena- 
dos na VariáveH e comparados pelo comando PLUS CODE com os armazena- 
dos previamente para a finalidade de comparação em variável determina- 
da pelo usuário. 

Da igualdade ou não da comparação entre a senha e o conteúdo da 
variável determinada pelo usuário devem derivar os comandos que defi- 
nirão o curso do programa ou o seu encerramento. 

Ê apresentado a seguir um pequeno programa que testa e exemplifi- 
ca o uso do comando descrito: 


PROGRAMA-TESTE "PLUS CODE" 

* TESTE "PLUS CODE" 

SET TALK OFF 
ER ASE 

STORE CHR < 65 ) +CHR < òó ) +CHR < 67 ) TO SEGREDO 
STORE "02" TO LIN 



BTORE "IO" TO COL 
STORE " "TO SENHA 
PLUS CODE LIN COL TO SENHA 
IF SENHA = SEGREDO 
a 4,10 SAY "OK ! A senha confere! 
ELSE 

5) 4,10 SAY "A senha não confere! 
ENDIF 

R ELE ASE ALL 
SET TALK ON 


NOTA: neate módulo a senha é estabelecida com os caracteres ABC atri- 
buídos à variável SEGREDO através doB códigos ASCII 65, 66 e 67. 
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No Capítulo 11, conjugando a descrição dos comandos da 3érie PLUS 
do d BASE II com a exemplificação do seu uso, introduzimos módulos que 
refletem recursos avançados da programação em d BASE. 

Neste capítulo, utilizando vários comandos e funções já estudados 
nos dois livros que compõem este Curso - dBASE II PLUS PARA MSX, INTE- 
RATIVO, e este - introduziremos novos módulos, que espelham também re 
cursos avançados da programação em dBASE - ou recursos "sofisticados- 
segundo modismos da época ", com a finalidade de oferecer aos interes- 
sados na matéria alguns elementos mais para o seu aperfeiçoamento. 

Devemos frisar, todavia, que os recursos em questão aqui apresen- 
tados representam apenas uma pequena fração dos muitos que podem ser 
desenvolvidos por qualquer programador interessado, se o uso dos co- 
mandos do dBASE, tanto os do modo interativo quanto os do modo progra- 
mável, for feito com critério, profundidade e imaginação criativa. 

Deve ser lembrado, entretanto, que a boa programação em dBASE não 
depende apenas do conhecimento aprofundado do modo programável ou da 
linguagem de programação do sistema, t sobremaneira importante que o 
modo interativo do dBASE seja também conhecido com profundidade, como 
comentamos no início de nosso Curso, razão por que recomendamos ao es- 
tudante repassar, sempre que possível, a matéria tratada no primeiro 
volume, até que o seu domínio seja completo. 
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12.1 


INSERÇ30 OBRIGATÓRIA DE DATA 


Cono sabemos, ao ser ativado, a primeira providência do dBASE é 
solicitar a digitação da data atual através da mensagem de vídeo "En- 
tre com a data de hoje ou tecle <return>. (DD/MM/AA)" que pode, opcio- 
nalmente, não ser atendida. Para tanto basta pressionar simplesmente a 
tecla RETURN como resposta à aludida mensagem. 

Todavia, tal dado é empregado pelo dBASE para atualizar a data de 
utilização dos arquivos de dados, sendo esta registrada em cada um co- 
mo “última data", o que pode ser verificado através do comando Dl S PLAY 
FILES, ou LIST FILES, ou como “data da última atualização - , como pode 
ser vista através do comando DISPLAY STRUCTURE, ou LIST STRUCTURE, es- 
tando o arquivo em uso no momento de execução do comando. 

A atualização da data de uso é deveras importante nos sistemas de 
gerenciamento de bancos de dados, especialmente quando tratam de con- 
troles contábeis e administrativos - balancetes, contas a pagar ou re- 
ceber, estoque etc. - e emissão de relatórios. 

0 módulo apresentado a seguir nâo só torna obrigatória a digita- 
ção da data mas também verifica a validade da mesma. Ele pode ser in- 
cluído como trecho inicial de qualquer programa ou ser utilizado sepa- 
radamente. Pode também ser incluído num AUTOEXEC.BAT, de modo a permi- 
tir que qualquer programa em dBASE entre automaticamente em execução 
ao ser ligado o microcomputador. Neste caso, deverá estar alojado no 
"disk drive" corrente o disquete que contém os sistemas DOS e dBASE, 
o módulo em questão, o programa a ser executado e o AUTOEXEC.BAT, de- 
vendo este ter apenas o comando indicado a seguir: 

dBASE <none do nódulo datador» 

0 módulo em questão pode igualmente ser usado para tornar obriga- 
tória a digitação de data em qualquer utilização do dBASE, Be o nome 
pelo qual estiver gravado no disquete for incluído em um AUTOEXEC.BAT 
que ativa automaticamente o dBASE no microcomputador. Em tal caso, a 
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última linha de comando existente na sua listagem (DO <nome do progra- 
grama a ser executado>) deve ser eliminada. 

MÓDULO "OBR IGDAT" 


* MÓDULO QUE TORNA OBRIGATÓRIA 

* A INSERCSO DE DAT A ANTES DO USO DE UM PROGRAMA 

* 

x AUTOR: NÉLSON CASAR I 
#• 

ERASE 

SET TALK QFF 
STORE "Y" TO MD 
DO WHILE MD = "Y" 

ERASE 

ST ORE " " TO VER 
STORE " " TO DT 

STORE <ò TO CONT 
a 10,3 SAY "Digite a data no" 

3 11,7 SAY "formato DD/MM/AA" GET DT PICTURE "99/99/99" 
READ 

IF *<DT,i,Í> * " " 

LOOP 

ENDIF 

STORE %(DT,i,2)*t<DT,4,2)+S(DT»7 ,2) TO DTA 
* 

PLUS CDATE DTA TO VER 
IF VER ” 

3 14,6 SAY "#**#* DATA INVALlOA! **«**" 

DO WHILE CONT <50 

STORE CONT -♦ 1 TO CONT 

ENDDO 

L.OOP 

ENDIF 

STORE " " TO MD 
SET DATE TO &DT 

DO <nome do programa a ser executado) 
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12.2 


UNIFORMIZAÇÃO DE DATAS 


Em sistemas de computação no Brasil, geralmente dados referentes 
a datas são armazenados no formato DD/MM/AA. 

Todavia, em consequência de divergências de critérios ou porque 
são transferidos de outros arquivos - através de comandos JOIN ou AP- 
PEND FROM. por exemplo - não raramente um arquivo contém campos coa as 
datas armazenadas nos seguintes formatos: 

DO/MM/AA ou DD-Mh-AA ou DD.MM.AA 
D/Mh/AA ou D-MM-AA ou D.hh.AA 
DD/M/AA ou DD-h-AA ou DD.h.AA 
D/tt/AA ou D-h-AA ou D.h.AA 

Além desses casos, há os de inversão entre dia e mês, armazenados 
nos diversos formatos citados. 

Tais desuni formidadeB causam erros de lógica nas pesquisas e bus- 
cas de dados, pois que as mesmas são efetuadas pelo dBASE, como também 
por qualquer outro sistema de computação, pelo método de comparação de 
cadeias ("strings"), sendo os caracteres cotejados com base na sequên- 
cia em que estão reunidos, da esquerda para a direita. Nessa condição, 
se for comandada uma busca baseada numa data como 09/06/88, por exem- 
plo, todas as datas equivalentes armazenadas em formatos desuniformes 
como 08 acima citados serão desprezadas, redundando nula a pesquisa. 

Depreende-se facilmente do exposto que é necessário formatar uni- 
formemente as datas armazenadas em arquivos de dados. 

0 módulo listado a seguir corrige as datas armazenadas nos forma- 
tos citados acima, uniformizando-as no formato DD/MM/AA. 


MÓDULO "DTUNIFOR 


* MÓDULO PARA UNIFORMIZAR FORMATO DE DATAS EM REGISTROS 
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* AUTOR: NÉLSON CASARI 

* 

ER ASE 

SET TALK OFF 

USE < nome do arquivo a processar» 

DO WHIL.E .NOT. EOF 

IF LEN < TR IH < DATA ) ) * 6 

REPLACE DATA WITH "0"+DATA 

ENDIF 

***** 

IF *& ( DATA , 2 , i ) = "/" ,or ,(t( DAT A , 2 , 1 .a r . $ < dat a , 2 , í ) *" - " 

REPLACE DATA WITH "0" + ‘b ( DATA , í , i ) + "/"•♦% < DAT A , 3 , 2 > +"/"+% ( 
DATA, 6, 2) 

ENDIF 

***** 

IF i< DATA, 5, i )="/".or „%<DATA,5, í «or .% (DAT A,5, 1 >*"« " 

REPLACE DATA WITH 5 < DATA , í , 2 > +"/0"+l < DATA , 4 , í >+"/"+* < DAT 
A, 6, 2) 

ENDIF 

***** 

IF $ ( DAT A , 3 , í ) <> "/" 

REPLACE DATA WITH t <DAT A , i , 2 ) ♦"/"♦% < DATA , A , 2 ) +"/"«•* ( ü AT A 
,7,2) 

ENDIF 
SK IP 
ENDDO 


A ordem dos comandos IF não pode ser alterada, sob pena de preju- 
dicar seriamente o desempenho do programa. 

Chamamos a atenção do estudante para o uso dos comandos IF . . . EL- 
SE... ENDIF e STORE conjugado com a função $ (substring) . 

Com relação a datas armazenadas com inversão de dia e mês, deve- 
mos dizer que a correção e uniformização de formato feitas pelo mddulo 
DTUNIFOR não inclui a desinversão mês-dia, já que é impossível a qual- 
quer sistema determinar avulsamente em uma data qual é o dia e qual é 
o mês quando ambos são constituídos por números iguais ou inferiores a 
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12. Em uma data armazenada como 02/06/88, por exemplo, mas transferida 
de outro arquivo cujo critério de composição de datas é desconhecido, 
como determinar se 02 se refere a dia ou a mês, o mesmo acontecendo 
com 06? Tal determinação torna-se possível apenas quando datas nessas 
condições pertencem a um conjunto homogêneo de dados da mesma natureza 
e no qual exemplos como 11/30/88, 07/16/88 etc. caracterizam o crité- 
rio adotado na sua composição. 

Em tal caso, isto é. quando o conjunto de dados de um campo data 
for caracterizado pelo formato MM/DD/AA, o mesmo poderá ser processado 
prime ir amente por um módulo criado para efetuar a inversão necessária 
e, em seguida, pelo módulo DTUNIFOR. 

Quanto a casos avulsos de datas armazenadas na ordem MM/DD/AA, é 
mais aconselhável corrigi-las e uniformizá-las uma a uma. 

Por fim, deve ser observado que, no dBASE, quando um arquivo com 
campo DATA no formato DD/MM/AA é indexado, a indexação é feita por or- 
dem crescente apenas dos dois dígitos referentes ao DIA. Para obter a 
indexação em ordem cronológica efetiva é preciso adotar o formato ori- 
ginalmente previsto no sistema, que é o seguinte: AA/MM/DD. Em tal ca- 
so, isto é, quando um arquivo tiver de ser indexado por um campo DATA 
no formato AA/MM/DD, o módulo ora apresentado deverá ser adaptado. 


12-3 - CONVERSSO E PADRONIZAÇÃO 

DE VALORES MONETÁRIOS 

A conversão ao padrão brasileiro de dados referentes a valores 
monetários impõe-se necessariamente por razões de estética ou de sim- 
ples clareza e entendimento. 

Como sabemos, para fins de computação aritmética, as entradas de 
tais dados no microcomputador só podem ser feitas com separação de ca- 
sas decimais através do ponto (.), em lugar da vírgula usada nos sis- 
temas brasileiro e europeu. E os dígitos referentes ã parte inteira do 
valor não podem ser separados a cada três casas, ainda que por razões 
de clareza ou outras quaisquer! 
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Assim sendo, quando tais dados têm de ser computados aritmetica- 
mente e ser reproduzidos, no vídeo ou através de impressora, em padrão 
monetário brasileiro ou europeu, ele 3 devem ser convertidos. 

0 mddulo apresentado a seguir efetua a entrada de dados-valores 
nonetánoB no formato padrão de computadores para efeito de computação 
propriamente dita e, paralelamente, converte-os ao padrão brasileiro, 
exibindo-os convertidos. 

Ao terminar a entrada de dados, eles são totalizados e o resulta- 
do é exibido também no padrão braBileiro. 

Chamamos a atenção do estudante para o emprego do comando STORE 
juntamente com a função $ (substrmg) , mais o comando PLUS FORMAT, pa- 
ra obter 08 resultados objetivados. 


MÓDULO "PADRiBR" 


* MÓDULO PARA CONVERSÃO DE FORMATO 
x DE VALORES MONETÁRIOS AO PADRÃO BRASILEIRO 

H 

x AUTOR s NkLSON CASAR I 

H 

SET TALK OFF 

ER ASE 

STORE 0 TO TOT 
STORE "S" TO CT 
00 WHILE CT * 

STORE 0 TO NM 

Si 7,0 SAY "Digite o valor usando apenas" 

?. " o ponta para separar os centavos" 

a) ÍO.ló SAY "Cz‘Ji " GE T NM PICTURE " 

READ 

STORE TOT NM TO TOT 
STORE STR ( NM ,16,2) TO NN 
STORE LEN(NN) TO L 
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ST ORE ÍL ( NN ri» L-3 ) TO NO 
STORE *<NN„L-í,2> TO NP 

store no*np to num 

ST ORE " " TO MASC 

STORE " 2 " TO DEC 

PLUS FORMAT NUM DEC TO MASC 

;j 12,0 SAY "Valor convertido " + MASC 

•> 

ACCEPT "Outra conversão? (S/N)' TO ANS 
STORE ! ( ANS ) TO CT 
Ei! RASE 
ENDDO 

STORE STR < TOT ,16,2) TO NN 
STORE LEN (NN) TO L 
STORE % ( NN , í r L~3 ) TO NO 
STORE 4 < NN , L~ 1 r 2 ) TO NP 
STORE NO+NP TO NUM 

STORE " " TO TOTAL 

STORE " 2 " TO DEC 

PLUS FORMAT NUM DEC TO TOTAL 

«) 14,0 SAY "Os valores efetivos processa-" 
S) 15,1 SAY "dos totalizam Cz$ " ^ TOTAL 
? 

R ELE ASE ALL 
SET TALK ON 
CANCEL 


12-4 - TROCA DE BRANCOS A ESQUERDA 

DE NÚMEROS POR ZEROS 


0 mddulo apresentado a seguir permite a entrada de números de mo 
do que possam ser computados aritmeticaoente e, paralelamente, troca 
os brancos à esquerda dos mesmo3 por zeros, compondo-os com dez dígi- 
tos e os exibindo convertidos. 

Tal recurso é utilizado para fins de segurança e para efeitos es- 
téticos no encolunamento de números em relatdrios gerados para exibi- 
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çio no video ou reprodução por impressora. 


Ao terminar a entrada dos numeros, sua soma é apresentada também 
com zeros à esquerda, utilizando ao todo doze dígitos. 

Merece atenção no módulo o uso do comando STORE conjugado com a 
função STR, mais o comando PLUS LZERO . 


MÓDULO "TROCZERO" 


* MÓDULO PARA SOMA DE NÚMEROS E TROCA DE BRANCOS A E8~ 

« QUER DA POR ZEROS 

* AUTOR: NéLSON CASAR I 

* 

SET TALK orr 
ERASE 

STORE <ò TO TOT 
STORE "S" TO CT 
DO WHILE CT * "S" 


o 

INPUT "Digite o n° a somar " TO NUM 

STORE TOT * NUM TO TOT 

STORE STR (NUM, í 0,0) TO NUMi 

STORE " " TO NUM2 

PL.US LZERO NUMI TO NUM2 

? 

? " Número convertido : ", NUM2 

'i* 

Accept "Outro número? (S/N) " TO ANS 

STORE ! ( ANS ) TO CT 

ENDDO 

STORE STR (TOT, 12 *0) TO TOT i 
STORE " " TO TOTAL 

PLUS LZERO TOT 1 TO TOTAL 

? 

? " Total somado : " + TOTAL 
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RELEASE ALL 
SET TALK ON 
CANCEL 


12.5 - MARCAC20 DE ENDDOs, ENDIFs , ENDCASEs 

Se voltarmos ao item 7.1 deste volume e examinarmos a listagem do 
módulo MENU, notaremos que foram usados nada menos do que sete coman- 
dos IF... ELSE... ENDIF na sua elaboração. 

No caso especifico do módulo MENU, apenas um ceando f 01 incluído 
entre cada IF e ENDIF, mantendo-os relativamente próximos e não difi 
cultando determinar a correspondência entre cada IF e seu complemento, 
mesmo porque todos os ENDIFs puderam ser localizados consecutivamente. 

Mas há casos em que as instruções inseridas entre IF e ENDIF são 
diversas e complexas e os ENDIFs são separados por outros comandos ou 
comentários elucidativos, dificultando determinar a sua correspondên- 
cia e, consequentemente, tornando mais árdua a tarefa de efetuar cor- 
reções ou alterações no programa. 

Um recurso hábil para contornar tais condições consiste em "mar- 
car" os ENDIFs de modo que eles sejam facilmente identificáveis quanto 
aos iFs aos quais pertencem. "Marcar", neste caso, significa incluir 
qualquer notação após cada ENDIF, o que é perfeitamente possível por- 
que o d BASE ignora tudo o que aparece após tal comando na mesma linha. 

No caso do MENU citado, por exemplo, os ENDIFs poderiam ser mar- 
cados da seguinte forma, se necessário fosse marcá-los: 

ENDIF < Ref . Opc-1) 

ENDIF (Ref . Opc-2) 

ENDIF (Ref. 0pc-3> 


As observações feitas sobre ENDIF aplicam-se igualmente a ENDDO 
ENDCASE e ENDTEXT. 
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Í2-6 - ATR IBUIÇSO DE NÚMEROS OU VALORES 

ATRAVÉS DO COMANDO ACCEPT 

Como sabemos, os comandos INPUT e ACCEPT destinam-se a criar va- 
riáveis de memória cujas atribuições são feitas via teclado no ato de 
sua execução, ambos permitindo a inclusão de comentários elucidativos 
ou mensagens para exibição concomitante no vídeo, de modo a esclarecer 
a finalidade dos dados a serem digitados. 

INPUT e ACCEPT são usados praticamente com exclusividade no modo 
programável do dBASE. 

INPUT cria variáveis tipo N e C, isto é, numéricas e de caracte- 
res, estas denominadas também alfanuméricas ou "strings". 

Quando a atribuição é feita em ntímeros ou valores - sem delimita- 
dores como aspas ou apóstrofos - as variáveis originadas por INPUT são 
automaticamente classificadas no dBASE como numéricas e seus conteúdos 
são computáveis aritmeticamente. 

Quando a atribuição é feita em números e/ou quaisquer caracteres 
delimitados com aspas ou apóstrofos, as variáveis geradas através de 
INPUT são automaticamente classificadas no dBASE como variáveis alfa- 
numéricas, ou tipo C, e seus conteúdos não são antmeticamente compu- 
táveis, ainda que constituídos unicamente por dígitos números. 

ACCEPT gera somente variáveis tipo C, ou alfanuméricas. Aspas e 
apóstrofos não são válidos como delimitadores nas atribuições feitas a 
variáveis criadas através desse comando. Quando digitados juntamente 
com a atribuição, são aceitos como quaisquer outros caracteres inte- 
grantes da mesma. 

Se for pressionada a tecla RETURN pretendendo nada atribuir ã va- 
riável gerada na execução de um comando INPUT, o dBASE deterá o anda- 
mento do programa e emitirá através do vídeo a mensagem "Erro de sin- 
taxe, redigitar . Nessa situação, tantas vezes quantas for pressiona- 
da a tecla RETURN, tantas vezes tal mensagem será exibida. 
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A única maneira de não atribuir nenhum valor ou número positivo 
ou negativo a uma variável criada por INPUT é atribuir-lhe o número ou 
valor 0, o <iue chega a causar alguma mconvemôncia, já que na prática 
é mais cômodo teclar simplesmente RETURN quando se pretende evitar a 
entrada do dado solicitado ou exigido pelo sistema, em vez de locali- 
zar a tecla 0 e pressioná-la. 

A situação descrita poderia ser contornada simplesmente com o uso 
do comando ACCEPT conjugado com a função VAL, se esta não apresentasse 
uma limitação apenas aparente que geralmente impede o seu uso. Tal li- 
mitação se prende ã exibição com supressão de casas decimais de núme- 
ros ou valores convertidos de conteúdos de variáveis alfanuméricas. O 
exemplo dado a seguir ilustra o fato: 

STORE "100.55" TO A 
STORE "100.55" TO B 
? VAL(A) , VAL< B ) 

100, 100 
? VAL < A ) ♦ VAL < B ) 

200 

Essa característica da função VAL cria dúvidas para muitos usuá- 
rios que deixam de utilizá-la supondo que os resultados finais do pro- 
cessamento de números ou valores com decimais são prejudicados. De fa- 
to, os testes indicados acima justificam tal suposição. 

Todavia, se efetuarmos os seguintes testes: 

? VAL(A) » 100 
? VAL(B) * 100 
? VAL ( A ) + VAL(B) 

obteremos os seguintes resultados, respectivamente: 

10055 

10055 

201 

os quais comprovam que as conversões feitas através da função VAL são 
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corretas, sendo apenas aparente a supressão de casas decimais. 

Assim sendo, a fim de tornar possível - sem embaraços - a entrada 
via teclado de números ou valores coa casas decimais através do coman- 
do ACCEPT - recurso esse que permite teclar apenas RETURN quando for 
desejado dar entrada de valor ou quantidade 0 sem ter de digitá-lo 
o comando ACCEPT e a função VAL devem ser usados com o auxílio de um 
pequeno artifício de cálculo, conforme exemplificado a seguir: 

ACCEPT "Digite o valor " TO A 

STORE UAL < A ) « 100 « .01 TO B 

? 8 

Esse exemplo é válido para converter conteúdos numéricos com até 
duas casas decimai3, de variáveis alfanuméricas - portanto conteúdos 
não computáveis aritmeticamente -, em valores de computação aritméti- 
ca convencional. 

Conteúdos numéricos de variáveis alfanuméricas com até três casas 
decimais devem ser convertidos com o artifício de cálculo que segue: 

UAL ( A ) * 1000 « .001 
e assim por diante. 

Artifícios de cálculos como 

UAL(A) * 100 / 100 
ou < UAL < A ) « 100) / 100 

não são válidos no caso do d BASE II. 

Obviamente, números ou valores sem casas decimais podem ser con- 
vertidos normalmente pela função VAL, sem o artificio apresentado. 
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1 3 


O E P 1J R #=» C SÜ O O E tP ROOR A Mi A S 


Não raramente, um programa recém-elaborado apresenta falhas ao ser 
executado. Algumas dessas falhas causam interrupções na sua execução, 
com emissão de mensagens de erro através do vídeo. Outras causam re- 
sultados errados ou inesperados. 

Tais falhas podem ser originadas por erros de escrita ou de sin- 
taxe e/ou por erros de lógica. 

Exemplos de erro de escrita que costumam ocorrer: 

- ACEPT em vez de ACCEPT, RELESE em vez de RELEASE etc. 

Exemplos de erro de sintaxe que costumam ocorrer: 

- INPUT e ACCEPT sem TO, REPLACE sem WITH, LOCATE sem FOR etc. 

Exemplos de erros de lógica: 

- Comando RETURN usado 3em um comando DO correspondente. 

- Arquivo de índice não atualizado após a inclusão de novo(s) re- 
gistro (s) no arquivo de dados correspondente. 

- Uso de nome de campo com erro ou inexistente. 
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- Indicação de pesquisa em arquivo não selecionado (quando em uso 
o comando SELECT) , estando dois arquivos de dados em uso simul- 
tâneo. 

- Comando SUM dirigido a campos não numéricos. 

- Falta de comandos para realizar determinados processamentos. 

Normalmente os erros de escrita e de sintaxe são detectados fácil 
e rapidamente através das mensagens de erro exibidas no vídeo ao ser 
interrompida a execução do programa. As correções correspondentes são 
feitas por intermédio da instrução MODIFY COMMAND, estudada no Capítu- 
lo 2 deste volume e no Capítulo 19 do primeiro volume deste Curso. 

Dependendo do tipo de programa, de sua extensão e complexidade, a 
localização de erros de lógica nele existentes pode ser ou não tarefa 
consideravelmente árdua. 

O procedimento inicial recomendável para localizar e eliminar er- 
ros de lógica de um programa é reler cuidadosamente a última listagem 
do mesmo, de preferência extraída do computador através de impressora. 

Cada trecho do programa deve ser examinado com rigor e meticulo- 
sidade quanto à sua elaboração estrutural e lógica. 0 trecho que cau- 
sar alguma dúvida deve ser reestudado e, sempre que possível, reprodu- 
zido e testado em módulo separado do programa. 

Encontrados os erros, as correções devem ser feitas normalmente 
através de MODIFY COMMAND. 

Se tal método falhar, o programador deve recorrer aos comandoB do 
dBASE criados especialmente para funcionar como auxiliares na depura- 
ção de programas e que são descritos a seguir: 

Comanda SET ECHO ON/OFF 

*** Estando SET ECHO ativado, isto é, em ON, o dBASE exibe no vídeo 

as linhas de comando - de um programa em andamento - que vão sen- 
do executadas, permitindo rastrear o seu desempenho. 
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sua sintaxe é; 


SET ECHO ON ou OFF 

Ao ser ativado o d BASE no microcomputador , SET ECHO esta normal- 
mente em OFF, isto é, desativado. 

0 programa a ser pesquisado deve ser posto ei execução após SET 
ECHO ter sido ativado, o que é feito através de comandos diretos, como 
exemplificado a seguir: 

SET ECHO ON < RETURN > 

DO <nome do programa) <RETURN> 

Nessa condição, o programa rodará exibindo no vídeo as linhas de 
comando que vão sendo executadas. Será interrompido normalmente para 
entrada de dados que dependam de digitação e prosseguirá após terem 
sido digitados. 

A exibição poderá ser detida temporariamente com auxílio da3 te- 
clas de controle CONTROL e S, pressionadas simultaneamente, tendo se- 
quência quando qualquer outra tecla for pressionada. Será abortada se 
for pressionada a tecla ESC. 

Qualquer erro do programa capaz de interromper a sua execução po- 
derá ser localizado sem maiores dificuldades através desse método, já 
que a interrupção ocorrerá em seguida à exibição da linha de comando 
que o contiver, gerando uma mensagem de erro correspondente. 

Quanto a erros de lógica que gera* processamentos errados de da- 
dos, com resultados incorretos ou inesperados, mas que não causam in- 
terrupção no andamento do programa, o ümco recurso objetivo com que 
pode contar o programador é o da análise minuciosa. Prática, bom senso 
e argücia valem como recursos subjetivos. 

SET ECHO pode ser usado em conjunto com SET STEP e SET DEBUG, co- 
mandos que serão descritos a seguir. 
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0 segundo comando disponível no dBASE para depurar programas é: 


Comando SET STEP ON/OFF 

*** E3tando SET STEP ativado, isto é, em ON, o dBASE detém o andamen- 
to do programa apôs a execução de cada linha de comando, exigindo 
a interferência do usuário para o mesmo ter prosseguimento. Sua 
sintaxe é; 


SET STEP ON ou OFF 

Ao ser ativado o dBASE no microcomputador, SET STEP está normal- 
mente em OFF, isto é, desativado. 

Do mesmo modo que com SET ECHO, o programa a ser pesquisado atra- 
vés de SET STEP deve ser posto em execução apòs este comando ter sido 
ativado, como exemplificado a seguir: 

SET STEP ON < RETURN > 

DO (noK do programa) <RETURN> 

Posto em execução o programa a ser pesquisado, o seu andamento 
será interrompido após a execução de cada linha de comando, com exibi- 
ção no vídeo da seguinte mensagem: 

Passo a passo Y:= passo, N; = com. teclado, 

ESC : = cancela. 

Tal mensagem significa que uma linha de comando do programa foi 
executada sem problemas e que o usuário deve digitar Y ou N ou pres- 
sionar a tecla ESC. 

Se digitar Y, uma nova linha de comando será executada, desde que 
não contenha erro impeditivo. 

Se digitar N. o dBASE exibirá em seguida no vídeo o ponto (.) de 
prontidão a fim de que o usuário possa inserir nesse ponto do programa 
qualquer comando que queira testar. Todavia, este recurso só tem real 
serventia quando SET STEP está ativado em conjunto com SET ECHO, moda- 
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1 idade que 3erá explicada a seguir. 


Se pressionar a tecla ESC, a execução do programa será cancelada, 
retornando o dBASE ao estado de prontidão para comando direto. 

Depreende-se da descrição de SET STEP que as linhas de comandos 
do programa em pesquisa não são exibidas no vídeo, embora sejam execu- 
tadas passo a passo, ou uma por uma, dependendo sempre a sequência do 
andamento da interferência do usuário. 

Tal recurso por si só, todavia, não presta auxílio relevante ao 
U3Uário, já que as linhas de comandos em execução não são exibidas no 
vídeo, sendo consequentemente ignorado o trecho do programa em que es- 
tão localizados. 

Para que SET STEP preste real serventia, deve ser usado juntamen- 
te com SET ECHO, de modo que cada linha de comando do programa seja ao 
mesmo tempo executada e exibida no video, permitindo ao pesquisador 
não sd rastreá-la mas também inserir em pontos desejados comandos para 
testes e observações. 

Para ativar no modo direto do dBASE ambos os comandos, digitar: 

SET ECHO ON < RETURN > 

SET STEP ON < RETURN > 

podendo a ordem entre ambos ser invertida. 

Ao contrário do que ocorre com SET ECHO, SET STEP não pode ser 
usado em conjunto com SET DEBUG , pois prejudica o desempenho de ambos 
os comandos, chegando mesmo a emperrar o programa em execução. 

Para reproduzir através de impressora os resultados da execução 
dos comandos SET ECHO e SET STEP usados simultaneamente, a saída para 
a mesma deve ser ativada pelas teclas de controle CONTROL e P, pres- 
sionadas juntamente uma vez depois da ativação daqueles comandos. 
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Comando SET DEBUG ON/OFF 


*** Estando SET DEBUG ativado, isto é, em ON, o dBASE dirige para a 
impressora, em vez de para o vídeo, as linhas de comandos de pro- 
grama em execução, para que elas sejam impressas. Sua sintaxe é: 


SET DEBUG ON ou OFF 

Ao ser o dBASE ativado no microcomputador, SET DEBUG está norma 1- 
mente desativado, isto é, em OFF. 

SET DEBUG é especialmente indicado para obter através de impres- 
sora os resultados da execução do comando SET ECHO em pesquisas de er- 
ros de programas longos e complexos, já que a rapidez de exibição no 
vídeo das linhas de comando do programa em execução dificulta o acom- 
panhamento pelo usuário, chegando me3mo a impossibilitá-lo na maioria 
das vezes. Reproduzido em papel o andamento geral do programa, a pes- 
quisa de erros existentes no mesmo fica facilitada. 

No caso de haver conveniência em obter através da impressora ape- 
nas a saída de execução de determinados trechos do programa, cada um 
deles deve ser precedido pelo comando SET DEBUG ON e finalizado por 
SET DEBUG OFF, inseridos previamente. Nessa condição, a execução do 
programa aptís a ativação de SET ECHO imprimirá em papel apenas o re- 
sultado do desempenho dos mesmos. 

Finalmente, deve ser lembrado que o comando SET TALK ON/OFF, es- 
tudado no Capitulo 3 deste livro, pode também auxiliar o usuário no 
processo de depuração de erros de programas. Como tivemos oportunida- 
de de observar, normalmente SET TALK OFF figura como um dos primeiros 
comandos da maioria dos programas em dBASE, exatamente para evitar que 
sejam exibidos no vídeo os resultados da execução de comandos cujo de- 
sempenho normal tem essa característica. Geralmente, tais comandos são 
largamente usados no modo interativo do dBASE, no qual essa peculiari- 
dade apresenta certas conveniências. 
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Depreende-se do exposto, pois, que ativando SET TALK, isto é, co- 
locando-o em ON, será gerada no vídeo a exibiçSo dos resultados de di- 
versos comandos utilizados no programa, facilitando a pesquisa para 
localizaçSo de erros. 

0 estado ON ou OFF dos comandos descritos ou citados pode ser ve- 
rificado com o dBASE ativado, através dos comandos DISPLAY STATUS (ou 
DISP STAT) e LIST STATUS (ou LIST STAT) . 
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i 4 - i - PROGRAMAÇÃO ESTRUTURADA 

"Programação Estruturada" é uma modalidade de programação segun- 
do a qual a elaboração de programa para computador deve ater-se a uma 
estruturação geral tão lógica quanto possível , de maneira que a sua 
execução seja sequencialmente harmoniosa e eficiente. Um programa nes- 
sa modalidade deve ser de entendimento fácil para qualquer usuário e 
oferecer facilidades para alterações ou adaptações. 

De forma geral, a Programação Estruturada consiste em modularizar 
os programas para computador, ou seja: elaborar os programas para com- 
putador em módulos ou em blocos de comandos. 

Todavia, apenas dividir um programa em módulos não é o suficiente 
para classificá-lo como programa estruturado, É preciso também que es- 
ses módulos sejam elaborados com a utilização das chamadas "Estruturas 
Básicas" e suas combinações, com as quais é possível escrever qualquer 
tipo de programa, conforme afirmam pesquisadores especializados. 

A Programação Estruturada preconiza também a minimização do uso 
de instruções de desvio incondicional como GOTO e GOSUB, por exemplo, 
da linguagem BASIC, por considerá-las prejudiciais à estruturação lím- 
pida e lógica de qualquer programa, já que elas podem desviar o fluxo 
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de execução para qualquer parte dele. 

De modo geral, todas as linguagens de computação se prestam ã mo- 
dalidade de Programação Estruturada, mas, por não possuir instruções 
de desvio incondicional e por força dos recursos de programação de que 
dispõe, a linguagem de programação do dBASE se presta por excelência 
â programação estruturada, enquadrando-se os seus comandos perfeita- 
mente nas chamadas Estruturas Básicas ou Padronizadas da Programação 
Estruturada. 

São descritas a seguir as Estruturas Básicas da Programação Es- 
truturada e que são utilizadas na programação em dBASE: 


ESTRUTURA SEQUENCIAL OU DE SEQUÊNCIA SIMPLES 

Neste tipo de estrutura os blocos de comandos ou mddulos são exe- 
cutados consecutivamente, sem desvios. Seu fluxograma típico é: 


I 



DO Ml 
DO M2 
DO M3 


ESTRUTURA CONDICIONADA OU DE COMANDOS 

SELECIONADOS POR IF... ELSE ENDIF 


OU DO CASE... OTHERU1SE. - - ENDCASE 
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Nesta modalidade de estrutura, os blocos de comandos ou módulos 
são executados em função de condições existentes como falsas ou verda- 
deiras, determinadas através dos comandos IF... ELSE... ENDIF ou DO 
CASE... OTHERWISE. . . ENDCASE. São apresentados a seguir dois fluxogra- 
nas típicos dessa estrutura: 


ESTRUTURA CONDICIONADA SIMPLES: 


I 



IF A = 1 
DO Ml 
ENDIF 


ESTRUTURA CONDICIONADA COMPLEXA: 



IF A=1 
DO Ml 
ELSE 
IF A=2 
DO M2 
ELSE 
LOOP 
ENDIF 
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ESTRUTURA DE "LACO" (LOOP) 

OU DE CICLO REPETITIVO 

Neste tipo de estrutura os blocos de comandos ou mddulos são exe- 
cutados n mlmero de vezes, enquanto determinada condição for verdadei- 
ra. Seu fluxograma típico é: 



14.2 - PROGRAMACSO TOP DOWN 


TOP DOWN é una técnica de programação largamente adotada na atua- 
lidade e, grosso modo, consiste em programar "de cima para baixo", co- 
mo sugere a sua denominação. De modo geral, programar em TOP DOWN sig- 
nifica criar um mddulo inicial para gerenciar ou supervisionar a exe- 
cução dos demais módulos que integrarão o programa, sendo estes elabo- 
rados em função daquele. 

Como exemplo dessa técnica podemos citar a criação de um "menu de 
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opções" como módulo inicial de um programa, em função do qual são ela- 
borados os demais módulos. Em tal caso, o próprio menu de opçõeB serve 
de roteiro para a criação do3 outros módulos e, quando da execução do 
programa, o menu não só controla os diversos módulos, mas também fun- 
ciona como agente de sua integração. 

A técnica de programação TOP DOWN se presta por excelência para a 
programação estruturada em dBASE. 
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DOS COMANDOS ESTUDADOS NESTE LI ORO 


*, pág. 30 

OTHERWISE, pág. 66 

? e ??, 27 

PLUS ADATE, 136 


e, 22 

PLUS CDATE , 133 


CANCEL, 84 

PLUS CGC , 143 


CLAUSULA PICTURE, 39 

PLUS CHANGE, 139 


CLAUSULA USING, 40 

PLUS CODE, 148 


CLEAR GETS . 46 

PLUS CPF , 144 


DISPLAY, 27 (*) 

PLUS DDATE , 134 


DO, 19 (*) 

PLUS FORÍ1AT , 145 


DO CASE. . . OTHERWISE . . . 

PLUS LZERO, 140 


ENDCASE , 68 

PLUS MODll , 142 


DO WHILE. . . ENDDO, 62 

PLUS TDATE , 137 


ELSE, 65 

READ, 44 


ENDCASE, 68 

REMARK, 31 


ENDDO, 62 

RETURN. 83 


ENDIF , 65 

SAY, 24 


ENDTEXT , 28 

SET DEBUG ON/OFF 

, 168 

ERASE, 28 

SET ECHO ON/OFF. 

164 

GET , 43 

SET FORMAT, 25 


IF... ELSE... ENDIF, 65 

SET STEP ON/OFF, 
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LIST, 27 <*) 

SET TALK ON/OFF, 

28 

LOOP , 64 

TEXT... ENDTEXT, 

28 

MODIFY COMMAND, 17 (*) 

WAIT , 80 



NOTE r 30 

Nota: os comandos assinalados com (*) foram estudados no primeiro vo- 

lume deste curso - d BASE II PLUS PARA MSX, INTERATIVO - e são 
reestudados neste volume. 
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Com o lançamento do d BASE II PLUS para MSX, os microcomputadores 
deste padrão tornam-se máquinas profissionais de grande utilidade, particu- 
larmente porque possibilitam organizar rapidamente Banco de Dados para 
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através do dBASE. São apresentadas minuciosamente experiências que si- 
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com facilidade no microcomputador, proporcionando-lhe a prática necessária 
para o domínio do sistema. 

Ministrado de forma prática, com introdução gradativa e aplicação exemplifi- 
cai iva objetiva dos comandos e recursos próprios, o MODO PROGRAMÁ- 
VEL do dBASE II torna-se rapidamente assimilável, possibilitando sua apli- 
cação ampla e irrestrita em curto espaço de tempo. 

Na parte inicial, paralelamente com a descrição dos comandos básicos e re- 
cursos próprios do sistema, é desenvolvido e comentado um programa para 
CONTROLE DE ESTOQUE. Em seguida são introduzidos comandos avan- 
çados e recursos sofisticados, com a criação de módulos para aplicações di- 
versas. 
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